perl キーの集計について foreach文

質問

@list=(20,25,24,32,28,20,28,24,20);

という、ある組織の人間の年齢の配列を定義したとします。

そこで、

foreach $fld(@list){
$syukei{$fld}++;
}

というforeach文によって、年齢を「キー」として集計していくという説明を受けたのですが、いきなりスカラー変数の$syukeiが出てきて、さっぱりわかりません。

$syukei{$fld}++;

という一行の意味を教えてくださらないでしょうか。
また、++という記号を使用していますが、これを別の書き方で書き換えることはできないでしょうか。

回答No.4

leaz024

「ハッシュ（連想配列）」というのはご存知ですか？
これは配列と同様に、１つの変数内にいくつもの値を格納できるタイプの変数です。

配列は @var で表し、$var[ 添字 ] という形式で各要素にアクセスしますよね。
添字は０から始まる正の整数値で、このため要素の並びが保持され、データを順次処理するのに向きます。

ハッシュは %var と表し、$var{ 添字 } という形式で各要素にアクセスします。
添字は「キー」と呼ばれる「文字列」であるため、配列とは異なり要素の並びが保持されません。

問題の
　　$syukei{$fld}++;
は、暗黙のうちに %syukei というハッシュ変数を用意し、キーが $fld である要素の値をインクリメントしています。
（本当はループ前に %syukei の使用宣言をした方がよいです。）
各要素の初期値は「未定義値（数値としては 0）」なので、上記スクリプトでは「年齢ごとの人数」をカウントしていることになります。

ハッシュの各要素を取り出すには、keys 関数を使うのが一般的です。
keys はハッシュの全てのキーをリストにして返します。
　　foreach $key (keys %var) {
　　　　print "$key => $var{$key}\n";
　　}

keys が返すキーの並びは内部的なものなので、これを年齢（数値）順にしたいときは sort 関数を使って次のようにします。
　　foreach $key (sort {$a <=> $b} keys %var) {
　　　　print "$key => $var{$key}\n";
　　}
※詳しくは sort 関数について調べてみてください。

お礼

回答ありがとうございます。

やっと意味がわかりました。
最初は各要素の初期値は未定義値なんですね。
それでゼロがあり、
また、最初に
%syukeiとして、宣言しておいたほうがよいということですね。

その場合なんですが、%syukeiの使用宣言というのは、
何をすればいいのでしょうか。

ハッシュについては、まだ勉強を始めたばかりで、
配列のほうがイメージしやすかっただけに、
キーという概念を捉えるのが非常に困難を極めておりました。

ですが、すこし光がさしてきたように思えます。