HELP ->PERL regex is kick'n my a...

prisoner · 03-18-2004, 07:29 PM

I've just started using PERL. I like it. But what the heck is up with the regular expressions? My Kung-Fu is very weak.

I'm trying to write a script to slurp through a file and look for a line similiar to this:

Test Errors: 0

It's basically a log file. I only need to make sure the error number is 0 on this particular line of the file. There are other lines similiar to that one for example 'System Errors: blah', this makes it more confusinating for me. I just don't want to have to manually check file my app creates. So far I've been trying to do it like this:

open(myfile, "WHATEVER.FILE")
while (<myfile>) {
if ($_ = m/Test Errors: 0/) {
print "file is okay';
} else {
whatever

I know this doesn't work. I can't find a clear explanation of how to use regex for something a pattern similiar to mine. Can anyone help steer me in the right direction?

prisoner · 03-18-2004, 07:31 PM

Sorry, I don't know if matters but there are like 12 or 13 whitespaces between Errors: and 0 in my file.

deiussum · 03-18-2004, 09:49 PM

Try:

Code:

if (m/Test Errors: 0/g) {
   echo "No errors";
}

Or, if the number of spaces is variable, you can use something like

Code:

if (m/Test Errors:\s+0/g) {
   echo "No errors found"
}

Or, for something a bit more complex, if you wanted it to match for any number of errors and pull the number into a variable...

Code:

if (m/Test Errors:\s+(\d+)/g) {
   echo $1." Errors found.\n"

   if ($1 == 0) {
       echo "All is well\n"
   }
}