[Purdue-pm] while(1) "trick"
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:
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