Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^3: given/when one case prefixes another

by LanX (Cardinal)
on Apr 26, 2011 at 22:33 UTC ( #901431=note: print w/replies, xml ) Need Help??


in reply to Re^2: given/when one case prefixes another
in thread given/when one case prefixes another

> The short amount of code and large about of local variables involved makes that awkward.

why?

for ( 1..2,"a".."b") { ifnum(); ifchar(); print "\n" } sub ifnum { if (/1/) { print } elsif (/2/) { print } else { return } print " is number"; } sub ifchar { print && goto CONT if /a/; print && goto CONT if /b/; return; CONT: print " is character"; }

OUTPUT:

1 is number 2 is number a is character b is character

Cheers Rolf

UPDATE: changed ifnum() to elsif-clauses.

see also: Re: given/when one case prefixes another

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (4)
As of 2020-12-03 11:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    How often do you use taint mode?





    Results (55 votes). Check out past polls.

    Notices?