in reply to Re: Regexp experts, come to rescue!
in thread Regexp experts, come to rescue!
In that line, you may be better of using
sub match{ my $MType = shift; $_ eq $MType and return 1 for ( qw(-41 -55 -jj 1au 24u 36u )); }
Hope this helps,
Jeroen
"We are not alone"(FZ)
|
---|
In Section
Seekers of Perl Wisdom