Re^3: How do I write subs that take bare blocks as args?

Why so complicated? :)

if(not grep { $_->price > 1000 } @product_list) {
    # do stuff
}
[download]

Update:

my @p = (0,2,4,5,2,5,7,7);
print "1: none\n" if not grep { $_ > 1000 } @p;
push @p, 1002;
print "2: none\n" if not grep { $_ > 1000 } @p;

=output
1: none
[download]

____________
Makeshifts last the longest.

Comment on Re^3: How do I write subs that take bare blocks as args? Select or Download Code

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.