perl学习之哈希

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