Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re^2: Smart matching is experimental/depreciated in 5.18 - recommendations?

by LanX (Canon)
on Jun 17, 2013 at 22:40 UTC ( #1039483=note: print w/ replies, xml ) Need Help??


in reply to Re: Smart matching is experimental/depreciated in 5.18 - recommendations?
in thread Smart matching is experimental/depreciated in 5.18 - recommendations?

> You just have to add next at the end of each case to avoid fall-through.

or use classic elsif chains

$\="\n"; for (qw/abc foo bar 42 unknown/) { if (/^abc$/) { print 'abc'; } elsif (/^(foo|bar)$/) { print "foo bar"; } elsif ( $_ eq 42 ) { print "42"; } else { print "default: $_"; } } __END__ abc foo bar foo bar 42 default: unknown

if you don't like regex define a sub in to do the test

$\="\n"; sub in { $_ ~~ $_[0] } for (qw/abc foo bar 42 unknown/) { if ( in ['abc']) { print 'abc'; } elsif ( in [qw/foo bar/] ) { print "foo bar"; } elsif ( in [42] ) { print "42"; } else { print "default: $_"; } } __END__ abc foo bar foo bar 42 default: unknown

since the smart match is abstracted away you have maximum freedom to change/fallback implementation of in to regex or even a memoized hash.

Cheers Rolf

( addicted to the Perl Programming Language)


Comment on Re^2: Smart matching is experimental/depreciated in 5.18 - recommendations?
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (17)
As of 2014-07-22 14:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (116 votes), past polls