in reply to Re: Useless use of string eq
in thread Useless use of string eq
That may admit bogus customers that don't exist, or that the program cannot deal with. It may be wiser to spell out exactly what is legal.
(my $cust = $ARGV[1]) =~ s/^-(SMC|SBM|FET|China)$/$1/ or die "garbage in second arg: <$ARGV[1]>\n";
• another intruder with the mooring in the heart of the Perl
|
|---|
In Section
Seekers of Perl Wisdom