Re: boolean IN(); function in perl like

[premchai21]

I'm surprised no one mentioned List::Util's "first" routine yet.

first {$_ eq $e} @a

I'm not sure this works properly if $e is undef, though.

[adamk]

Or List::MoreUtil's even more correct 'any' function.


if ( any { $_ eq $foo } @list ) {

}

If you are wondering why first isn't enough, imagine...


if ( first { ! defined $_ } @list ) {
    # Does not get called if it matches
}

if ( any { ! defined $_ } @list ) {
    # Does get called it if matches
}

Of course, this assumes you only need to check once and once only. If you want to check many times, build the hash index and do it that way.

Edit by castaway - swapped lotsa br tags for code tags

[Errto]

Very right. ++ At a more basic level, this is why exists exists. Things may be there but have false values.

Btw, please use <code> tags instead of <pre> tags when posting code. Cheers.