こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

perlでカンマ区切り(CSV)データの集計をしたい

perl初心者です。
個人使用の経費帳簿をCGIで携帯で打ち込むようにしています。
CGIレスキューさんの簡易データベースを改良して作成しました。
フォーム入力→カンマ区切りで保存→項目別検索まで出来ました。
(年,月,日,摘要,入金,出金,備考)という感じです。
これに、月間項目別集計の昨日を追加したいのです。
月間検索で、12月度全部の一覧は出せるようになりました。
が、この1ヶ月間の交通費、書籍代、飲食費・・・の項目別の合計を表示させたいのですが。。。
どのようなプログラムでしょうか?

投稿日時 - 2007-12-06 15:24:53

QNo.3575832

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

連想配列というのを使うのが簡単です。

my %total = ();
open(IN, "CSVファイル.csv");
while(<IN>){
(年,月,日,摘要,入金,出金,備考) = split(/,/, $_);

# 摘要毎に集計
$count{ 摘要 }+= 入金;
}
close(IN);

#表示
foreach(keys %total){
print "$_,$total{$_}";
}

投稿日時 - 2007-12-07 15:40:55

あなたにオススメの質問