Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: given/when one case prefixes another

by apl (Monsignor)
on Apr 26, 2011 at 10:31 UTC ( [id://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

Replies are listed 'Best First'.
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
Domain Nodelet?
Node Status?
node history
Node Type: note [id://901313]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others scrutinizing the Monastery: (5)
As of 2024-04-10 20:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found