Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: improve ugly flow control

by FoxtrotUniform (Prior)
on Sep 19, 2004 at 07:53 UTC ( #392136=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    foreach (@options) {
      if(exists $hash{$_}) {  # always true for $_='fail'
        &do_something($_); last;
      }
    }