What the OP should do is put the regexes in a Perl module and unroll the loop. That way, he can group them so that groups of tests are skipped:
# strings containing "foo"
if( /foo/ ){
return "food" if /food/;
return "fool" if /fool/;
return "foot" if /foot/;
return "foo";
}
--
Don't stop where the ink does.
Shawn
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
