Weigh the benefits between
grep and
reinvented-wheel.
Yes, grep is not always optimally efficient. However,
how much time, effort (and money) will you spend writing a
more efficient algorithm to save a few microseconds?
my $Found = 0;
for (@Requirements){
if ($_ eq 'KernelDevlopment'){
$Found = 1;
last;
}
}
if ($Found != 0){
spend($Time{Extra});
squeeze($CPU{qw/every last cycle/});
}
### vs. ###
get_the_job_done() && move_on() unless grep {/KernelDevelopment/} @Req
+uirements;
:-)
Russ
Brainbench 'Most Valuable Professional' for Perl