ハッシュのキーは,文字列そのものや変数でなくとも,評価されたときに文字列を返すものであればよい。
#$var を小文字に変換したものがキー $hash{lc $var}++; #2つの変数を : で結合したものがキー $hash{$var1 . ':' . $var2}; #配列の要素を : で結合したものがキー $hash{join ":", @array};
大文字小文字を区別せずに単語の出現数を数える -------------------------------------------------- while (<>) { while (/\b\S+\b/g) { $freq{lc $&}++; } } --------------------------------------------------