Perlで項目の集計をしたい

2004/06/25 14:47

このQ&Aのポイント

Perlを使用してサークルのメンバーリストの集計を行いたいです。サークルの管理情報はHPで管理されており、出席・欠席・未定の情報がコンボボックスで入力されています。集計結果を一覧表示するために、日ごとの出席人数、欠席人数、未定人数を表示したいです。
メンバーリストの管理にはttdata.cgiというファイルが使用されており、ichiran.cgiを通じて一覧表示されています。ttdata.cgi内には各メンバーの名前と日ごとの出席情報が記録されています。集計処理を実装しようとしていますが、解決策が見つかりませんでした。わかる方がいらっしゃいましたら、ご教示いただきたいです。
項目の集計にはPerlを使用しています。サークルのメンバーリストはHPで管理されており、出席・欠席・未定の情報がコンボボックスから選択されています。集計結果は日ごとの出席人数、欠席人数、未定人数を表示したいです。メンバーリストはttdata.cgi内に記録されており、ichiran.cgiで一覧表示されています。解決策を探しているので、お知恵をお貸しください。

kikimimisan
お礼率100% (2/2)

その他(ソフトウェア)
回答数1
ありがとう数3

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

noname#22928

2004/06/25 15:10 回答No.1

open( TEXTFILE, "<ttdata.cgi" ); @a = <TEXTFILE>; close(TEXTFILE); foreach $s(@a){ @w = split(/,/, $s); if(@w[1]==0){ $a71++; } if(@w[1]==1){ $b71++; } if(@w[1]==2){ $c71++; } if(@w[2]==0){ $a72++; } if(@w[2]==1){ $b72++; } if(@w[2]==2){ $c72++; } if(@w[3]==0){ $a73++; } if(@w[3]==1){ $b73++; } if(@w[3]==2){ $c73++; } } print "7月1日の欠席は$a71"; print "7月1日の出席は$b71"; print "7月1日の未定は$c71"; print "7月2日の出席は$b72"; print "7月2日の欠席は$a72"; print "7月2日の未定は$c72"; print "7月3日の出席は$b73"; print "7月3日の欠席は$a73"; print "7月3日の未定は$c73"; 多分OK？ポイントください。