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

[Mark Senn]

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:

    #!/usr/local/bin/perl

    while (<STDIN>)
    {
        chomp;
        study;
        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.

-mark