Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

RE: Number of times I've used goto in Perl

by chromatic (Archbishop)
on Apr 19, 2000 at 00:21 UTC ( #7968=note: print w/ replies, xml ) Need Help??


in reply to Number of times I've used goto in Perl

Does a named loop count? Something like:

TOP_OF_LOOP: while (1) { # do this for (1 .. $some_big_number) { $foo = do_some_function($_); if ($foo % $_ = $some_smaller_number) { next TOP_OF_LOOP; } # do something else } } }
In both cases, your program flow probably needs help. :) (Okay, I'm really bad with configuration files.)

(And, yes, okay, it's an implicit goto. I'm guilty of it once in an AUTOLOAD, though.)


Comment on RE: Number of times I've used goto in Perl
Download Code
RE: RE: Number of times I've used goto in Perl
by turnstep (Parson) on Apr 19, 2000 at 00:42 UTC
    Where is the goto in your example?
RE: RE: Number of times I've used goto in Perl
by cciulla (Friar) on Apr 19, 2000 at 02:24 UTC
    IMHO, breaking flow using 'next' counts.

    That's almost as bad as an infinite 'while(true)' construct! :)
      What's so bad about while (1) { something; next if somethingmore; last if somethingelse; } ?

      I use it all the time.

       -Kaatunut

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (7)
As of 2014-10-20 05:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (72 votes), past polls