Perlism for the day:

   sub any(&@) {     my $sub = shift;       for(@_) {return 1 if $sub->()};     return undef;  }    print "blah\n" if any {$_==1} 0, 1, 2;  

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.