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

[chromatic]

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.)

[turnstep]

Where is the goto in your example?

[cciulla]

IMHO, breaking flow using 'next' counts.

That's almost as bad as an infinite 'while(true)' construct! :)

[kaatunut]

What's so bad about while (1) { something; next if somethingmore; last if somethingelse; } ?

I use it all the time.

 -Kaatunut