PerlでのCSV書き込みについて質問です。

質問

perl初心者です。
perlで投票のプログラミングを作ってるのですが、
どうもうまく動きません。

やりたいことは
・投票されたら
　１）csvを読み込む
　２）該当するNOのカウントをアップ
　３）csvに書き込む
という単純なことなのですが、
投票してもカウンタは0のままになってしまいます。
書き込み部分のプログラムが間違っているとは思うのですが
何が間違っているのかがどうしてもわかりません。

どなたかお知恵を貸してくださいm(__)m
プログラムは下記のようになっています。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
foreach my $key (@key) {
$val = $in{$key};
$in{$key} = &Jcode::convert(\$val, 'sjis');
}

# データオープン
open(DAT,"+< $datfile");
flock(DAT, 2);

my @data;
while (<DAT>) {
push(@data,$_);
if (eof) { last; }
}

# データ書き込み
truncate(DAT, 0);
seek(DAT, 0, 0);
my $i=1
while (i<11){
my ($no,$name,$count) = split(/,/, $data[$i]);
if($val eq $no){$count++;}

if (eof) { last; }
$i++;

print DAT "$no,$name,$count,\n";

}
close(DAT);

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

どうぞよろしくお願いします。

回答No.1

ralf124c · ベストアンサー

ソースがK&RスタイルなのでC経験者と見ました(書き方もCですね)。

参考意見だけで十分かと思いますので・・・。

***********************************************
if (eof) { last; }
は流れの中をみてると全部不要かも・・・
***********************************************
my @data;
while (<DAT>) {
push(@data,$_);
if (eof) { last; }
}
-----------------------------------------------は以下のように書いた方がすっきり
my @data = <DAT>;
***********************************************
my $i=1
while (i<11){
my ($no,$name,$count) = split(/,/, $data[$i]);
if($val eq $no){$count++;}

if (eof) { last; }
$i++;

print DAT "$no,$name,$count,\n";

}
-----------------------------------------------CプログラマはWhileがお好き→条件指定を少しでもミスるとエンドレス
foreach(@data){
　my ($no,$name,$count) = split(/,/);
　if($val eq $no){$count++;}
　print DAT "$no,$name,$count,\n";
}
***********************************************
truncate(DAT, 0);
seek(DAT, 0, 0);
-----------------------------------------------消してから戻すのではなく戻してから消す方が理にかなってると思う
seek(DAT, 0, 0);
truncate(DAT, 0);
***********************************************
あとopenやflock,seek,truncateなどは「or die "xxxxx"」でエラー処理したほうが無難
***********************************************
「flock」はOSや環境に左右されるので信用しないの
が吉。　CGIのアクセスカウンタのプログラムを参考
にしたほうが良い。
***********************************************
できれば、カウントするファイルを１カウンタ１フ
ァイルとし、危険分散させたほうがリスクが低くなる
と思います。
***********************************************

お礼

ralf124cさん
細かく説明していただいて、本当にありがとうございます！

Cは、学生の頃習った記憶が・・（○十年前・・）。
プログラムというものから離れてて、久しぶりにさわったのですが、
perlの配列をまったくわかっていませんでした。
アドバイスいただいた分と配列をやり直しと、いろいろさわって、やっと解決できました！
ありがとうございました！！
また何かあったときにはどうぞよろしくお願いいたしますm(__)m