>
> K, I tried this and it didn't work as expected:
>
> $code =~ / HTTP\/\d\.\d\" (\d+)/;
> if (!$code) {
> print "NEXT\n";
> next;
> }
> print "$code\n";
>
>
> The loop just printed NEXT 300 or so times. I was thinking
> that $code would equal whatever was in the parentheses. Am I
> still not getting this?
I had the same problem and someone pointed out that the paranthese is returned in list
context, so ::
my($newcode) = $code =~ / HTTP\/\d\.\d\" (\d+)/;
if(!$newcode) ...
Understanding list contewxt is very helpful
DMuey
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
