Re^2: grep with looped tests

Similarly, using first from List::Util to short circuit the inner loop when you match a line :)

use v5.18;
use warnings;

use List::Util 'first';
use Data::Dumper;

my @data = 0..10;
my @re = (3,7,9);

my @res = grep {my $line = $_; !defined first {$line =~ $_} @re } @dat
+a;

say Dumper(\@res);
[download]

Comment on Re^2: grep with looped tests Download Code

Replies are listed 'Best First'.
Re^3: grep with looped tests by LanX (Saint) on Jun 06, 2014 at 16:03 UTC
Ah I always forget that List::Util (which is core) has now `any` , too! (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` ! :) update though `first` was and `any` wasn't part of my 5.10 distribution! Cheers Rolf (addicted to the Perl Programming Language)	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: grep with looped tests
by LanX (Saint) on Jun 06, 2014 at 16:03 UTC

List::Util

any

(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 ! :)

update

though first was and any wasn't part of my 5.10 distribution!

Cheers Rolf

(addicted to the Perl Programming Language)

[reply]
[d/l]
[select]