Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: given/when one case prefixes another

by apl (Monsignor)
on Apr 26, 2011 at 10:31 UTC ( #901313=note: print w/ replies, xml ) Need Help??


in reply to given/when one case prefixes another

I have several cases that end the same way.
Turn the same way into a procedure, and refactor your code...


Comment on Re: given/when one case prefixes another
Re^2: given/when one case prefixes another
by John M. Dlugosz (Monsignor) on Apr 26, 2011 at 10:37 UTC
    The short amount of code and large about of local variables involved makes that awkward.

    I did end up changing the code, separating out the common stuff by making pre-tests before all that, so it was even more uniform.

      > 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://901313]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2015-07-04 10:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (59 votes), past polls