Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re: grep with looped tests

by LanX (Sage)
on Jun 06, 2014 at 15:46 UTC ( #1089049=note: print w/replies, xml ) Need Help??


in reply to grep with looped tests

> return shouldn't be the correct mechanism to tell grep true/false.

One quirk in Perl is that blocks of grep and map are (unfortunately) not anonymous subs.

Such that return tries to exit any surrounding sub and not the block!

Though you are able to either pass a real sub:

> perl my @x=1..10; my @re=qw/ 3 7 1 /; sub check { for my $re (@re) { return 1 if $_ =~ /$re/ } return 0; } print grep &check, @x; __END__ 13710

update

see also any in List::MoreUtils if you dont wanna reinvent the wheel! =)

Cheers Rolf

(addicted to the Perl Programming Language)

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1089049]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (3)
As of 2022-05-26 02:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (92 votes). Check out past polls.

    Notices?