Re: Re: Reverse grep?

[coolmichael]

I think +~ might be a typo. Don't you want this instead?

if ( $ENV{"REDIRECT_URL"} =~ /$_/ ) { print $_; last; }
                          ^

Please correct me if I'm wrong.

[jeffa]

Considering that one must hold down the shift key for the tilde character, coupled with the fact that the plus sign character shares the same key as the equal sign character ... yes ;)

But, have you played with the results yet?

[prompt]$ perl -le 'print /RED/'

[prompt]$ perl -le 'print ~/RED/'
4294967295
[prompt]$ perl -le 'print hex("F"x8)'
4294967295 
[prompt]$ perl -le '$_ = "REDIRECT"; print /RED/'
1
[prompt]$ perl -le '$_ = "REDIRECT"; print ~/RED/'
4294967294
[prompt]$ perl -le '$_ = "REDIRECT"; print 5+~/RED/'
4294967299

Gotta love Perl's flexibility! :D

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)