哈希的运用

清华大佬耗费三个月吐血整理的几百G的资源,免费分享!....>>>

print "请输入哈希的键值,输入结束后将统计每个哈希键输入的次数:\n";
while($line=<STDIN>){
   chomp($line);
   if(exists $b{$line}){
     $b{$line}++;
   }else{
     $b{$line}=1;
   }
}
foreach (sort keys %b){
   $value=$b{$_};
  print "$_ => $value\n";
}