[Purdue-pm] while(1) "trick"

Mark Senn mark at purdue.edu
Mon Jul 28 07:03:00 PDT 2014

Some times I like to use a "while(1)" only so I can do a "and last" to break
out of the while loop.  For quick and dirty code I find it easier than using
given/when, ifs, setting up arrays or hashes of regular expressions and
replacement text, etc.

Here is a contrived example:


    while (<STDIN>)
        while (1)
            s/blue.*$/green/o   and  last;
            s/apple/banana/o    and  last;
            s/[fF]red/Barney/o  and  last;
            # a gazillion more s///o commands here
            die "nothing matched";
        print qq/output is "$_"\n/;

Thought you might be interested.


More information about the Purdue-pm mailing list