Re: problem with simple perl Regular Expression match

[Rob Coops]

On Tue, Nov 11, 2008 at 5:03 PM, JC Janos <[EMAIL PROTECTED]> wrote:

> When I run this script,
>
>        $result = `$WGET $file`;
>        print $result . "\n";
>        if ( $result =~ m/saved/ ){
>            print "MATCH\n";
>        } else {
>            print "NO MATCH\n";
>        }
>
> It outputs,
>
>        2008-11-11 07:43:34 (526 KB/s) - `test.zip' saved [1517245/1517245]
>        NO MATCH
>
> But if I change,
>
> -       $result = `$WGET $file`;
> +       $result = "2008-11-11 07:43:34 (526 KB/s) - `test.zip' saved
> [1517245/1517245]";
>
> the script now outputs
>
>        2008-11-11 07:43:34 (526 KB/s) - `test.zip' saved [1517245/1517245]
>        MATCH
>
> Why doesn't the match,
>
>        $result =~ m/saved/
>
> work in the first case?
>
> --JC
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>

I am not 100% certain but I would say because in the first instance $WGET
$file does not result in anything, the printed line is not printed by your
program but by the wget command.

Try modifying your script to the follwoing:
       $result = `$WGET $file`;
       print "Result = $result\n";
       if ( $result =~ m/saved/ ){
           print "MATCH\n";
       } else {
           print "NO MATCH\n";
       }
That way you will be certain that what is written to the screen is written
by your program.

Regards,

Rob