Re: boolean IN(); function in perl like

[Anonymous Monk]

grep

my @found = grep { $e eq $_ } @a;

#or

print "yes" if grep { $e eq $_ } @a;

[xdg]

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);

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

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

[gaal]

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.)