(I'm still hooked on List::MoreUtils , see next answer :)
> my @res = grep {my $line = $_; !defined first {$line =~ $_} @re } @data;
But I think you'd certainly prefer any over first to avoid !defined ! :)
though first was and any wasn't part of my 5.10 distribution!
Cheers Rolf
(addicted to the Perl Programming Language)
In reply to Re^3: grep with looped tests
by LanX
in thread grep with looped tests
by Wiggins
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |