perl 初始化Hash
Vsftp:/root/perl/6# cat a5.pl
use Data::Dumper;
my @arr=qw/a bc d /;
my %rec=();
for $field (@arr){
$rec{$field} = $field.33;
}
print %rec;
print "
";
print Dumper(%rec);
print "
";
Vsftp:/root/perl/6# perl a5.pl
aa33dd33bcbc33
$VAR1 = 'a';
$VAR2 = 'a33';
$VAR3 = 'd';
$VAR4 = 'd33';
$VAR5 = 'bc';
$VAR6 = 'bc33';