Richard Lee wrote:
open EXCLUDE, '<', $exclude_psc or die "Could not open
'$exclude_psc' $!";
while ( <EXCLUDE> ) {
next if $. == 1; # exclude header
chomp;
my ($excpsc,$keyword) = split /\|/;
%ex_psc = (exclpsc=>$excpsc,exkeyword =>$keyword );
*What not just like below? As long as you have unique key, it would
retain all the information.*
$ex_psc{"$excpsc"} = "$keyword";
$ex_psc{"$excpsc"} is superfluous because *all* hash keys are strings.
perldoc -q quoting
What’s wrong with always quoting "$vars"?
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
