perl学习之哈希

#!/usr/bin/perl -w
use strict;
my %h=(
"wd"=>"1",
"dm"=>"2"
);
while(<STDIN>){
chomp;
print "$h{$_}\n";
}

结果
wd
1
dm
2

#!/usr/bin/perl -w
use strict;
my %h;
while(<STDIN>){
chomp;
$h{$_}++;
}
for(sort keys %h){
print "$_:$h{$_}\n";
}
结果
[root@nagios perl]# perl  ex62
fred
wilma
dino
fred
zzz
dino:1
fred:2
wilma:1
zzz:1