Re^2: boolean IN(); function in perl like

I'm surprised to see only grep examples with "eq". You can also do this with regex interpolation (being careful to match the whole thing, of course):

print "found!" if grep(/^$e$/, @a);
[download]

This might be useful if, for example, you didn't care about matching case:

print "found!" if grep(/^$e$/i, @a);
[download]

-xdg

Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.

Comment on Re^2: boolean IN(); function in perl like Select or Download Code

Replies are listed 'Best First'.
Re^3: boolean IN(); function in perl like by gaal (Parson) on Jan 14, 2005 at 22:02 UTC
You'd better run $e through `quotemeta` if you do this, or use the equivalent `\Q .. \E` re syntax. (If case does matter, an `eq` check is definitely going to be faster. If it doesn't, precomputing `lc $e` and comparing that to `lc $_` is still liable to be faster, though it's worth a benchmark. Of course, very often this is not a concern.)	[reply] [d/l] [select]