特定のデータを抽出するには？

質問

perlにて入力されたカウント数値の集計を取っていますが、その集計を表したいと考えています。

表の内容は、指定した月のデータです。
（1日は○カウント、2日は○カウント・・・といった感じで、その月の1日から末日までのカウント数）

照会するデータは、1年分です。

上記に基づき、次のようなデータ（年,月,日-カウント数値）があるのですが、特定の月のデータだけ抽出して配列に格納し、表を作成するには、どうすればよいのでしょうか？

例
2004,1,1-1234
2004,1,5-987
2004,2,3-567
2004,2,24-837
2004,2,30-567
2004,3,24-700
・
・
・
・

どのように書いたらいいのかわかりません。
よろしくおねがいします。

回答No.1

mi-si · ベストアンサー

一例ですが。

$file='test.txt';
$searchmon='2';

#ファイルの読み込み

return -1 if (!open (FILE,$file));
while(<FILE>) {
chop;
($year,$mon,$dayandcount)=split(/,/);
printf("$mon ");
if($mon eq $searchmon) {
($day,$cnt)=split(/-/,$dayandcount);
$date = "$year/$mon/$day";
$count{$date}=$cnt;
print ("$date $cnt\n");
}
}
close(FILE);

#ファイルの表示

print("<TABLE>\n");

foreach (keys %count) {
print ("<TR><TD>$_</TD><TD>$count{$_}</TD>\n");
}
print("</TABLE>\n");

お礼

なるほど、参考になりました。
おかげでうまくいきました。ありがとうございます。