Re^2: Perl Idioms Explained - !!expr

in reply to Re: Perl Idioms Explained - !!expr
in thread Perl Idioms Explained - !!expr

I would also mention just a simple ternary operator as an alternative:

return grep($_ eq $_[0], @_[ 1 .. $#_ ]) ? 1 : '';

or, more generally the equivalent to !!$expr is (some of the parens are optional depending on context):

(($expr)?1:'')