Perlで指定した期間で合致する値を集計したい

質問

サークルのメンバーリストをＨＰで管理しています。
画面では○月○日という項目に出席・欠席・未定をコンボボックスから選択して登録してもらって一覧表示しています。

名前　 7月1日 　7月2日 　7月3日　　7月4日 　7月5日
--------------------------------------------------
太郎　　欠席　　　欠席　　　出席
次郎　　出席　　　出席　　　出席
三郎　　出席　　　欠席　　　出席
↑こんな感じです。

そこで表の上に7月1日～7月3日において全部出席した人数を表示させたいと思っています。
データはttdata.cgiに入っていて表はichiran.cgiで表示しています。

@daylist=('7/1','7/2','7/3','7/4','7/5',);
@syukketsulist=('出席','欠席','未定',);
ttdata.cgi内では
太郎,1,1,0
次郎,0,0,0
三郎,0,1,0
となっています。

7/1、7/2、7/3が全部0になっている人数をカウントしたら良いと思い、色々試しましたができませんでした(/_;)
うまく表示できるやり方を教えてください。_(._.)_

回答No.1

masaboo · ベストアンサー

open(IN,"ttdata.cgi");
my @lines = <IN>;
close(IN);

my $count = 0;
for my $line (@lines){
　　my @data = split(/,/, $line);
　　if($data[1] eq '0' && $data[2] eq '0' && $data[3] eq '0'){
　　　　$count++;
　　}
}

print $count;
##################

状況がよくわかりませんが、こんな感じでしょうか。

あと、余談ですが
>コンボボックス
これはリストボックスですね。

お礼

わかりにくい質問の書き方にも関わらず教えていただきありがとうございました。_(._.)_
おかげさまで無事表示できました。