データの集計（？）

質問

こんにちは
現在CGIで表形式のようなものを作成しているのですが、どうしてもわからない点がありましたので、質問させていただきます。

ファイルレイアウト
($data1,$data2,$data3,$data4,$data5,$data6)
という構造時、中身が
2002,5,17,A,00,@@
2002,5,17,B,00,@@
2002,5,17,B,00,@@
2002,5,17,A,00,@@
2002,5,17,A,00,@@
2002,5,17,A,00,@@
となっていたとします。
このデータを、4番目のフィールドで集計したい（？）のです。つまり、A=4、B=2という具合にです。
この様な場合、どの様に記述すれば宜しいでしょうか？

回答No.2

leaz024 · ベストアンサー

元のソースに手を加えると、次のような感じになります。

my %count;　　# 集計用ハッシュ変数
# ４番目のデータで集計
foreach $data (@datalist) {
　　($data1,$data2,$data3,$data4,$data5,$data6) = split(/,/,$data);
　　$count{$data4}++;
}
# 集計結果を表示
foreach $key (sort keys %count) {
　　print "$key = $count{$key}\n";
}

ソースを見やすくするため全角スペースを入れていますので、コピーして使う際は半角スペースやタブに変換してください。

お礼

度々有難う御座います。
御教え頂いた手段にて問題は解決しました。
イマイチＣＧＩが解らないのでご迷惑をおかけしましたm(__)m
説明もとてもわかりやすくホントに助かりました。

回答No.1

leaz024

このような場合は、４番目の値をキーにしたハッシュで、値をカウントします。

my %count;
foreach (@data) {
　　$count{ (split /,/)[3] }++;
}

foreach (sort keys %count) {
　　print "$_ = $count{$_}\n";
}

補足

御回答有難う御座います。
私の書き方が悪いのか、御指示どおり試してみたのですが上手くいきません・・・(T_T)
下部に今まで書いていたソース（集計前）を書きますので、どの様に変更すればよいか、再度ご教授願えますでしょうか?

foreach $data(@datalist){
($data1,$data2,$data4,$data5,$data6)=split(/,/,$data);
print"$data4";
}

この様に単純に$data4を表示しておりました。この場合の変更手順を御教え下さいます様、御願い致します。