哈希的运用 2015/12/14 16417 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"; }