アクセスカウンターでデータが削除されてしまう。
プログラムのアクセスカウンターをするプログラムを作成しましたが、アクセスカウンターのデータが消去されてしまいます。
プログラム抜粋
(ここから)
#アクセスカウンターカウント数計上ロジックを入れる
$data = "";
open(IN11,"$countcsv") || &error(" countcsv をopen出来ません");
flock(IN11,1);
while($lines11 = <IN11>) {
($seq,$acc) = split("\,", $lines11);
if ($page == $seq) {$acc = $acc +1; }
$data .= "$seq,$acc\n"
}
close(IN11);
open(IN21,">$countcsv")|| &error(" countcsv をopen出来ません");
flock(IN21,2);
print IN21 "$data";
close(IN21);
(ここまで)
count.csvの構成は以下のようになってます。
(ここから)
1,0
2,0
3,0
4,0
5,0
6,0
7,0
8,0
9,0
10,0
(ここまで)
カウンターを計測するデータ(行数)が多いと、データが全てなくなってしまいます。
ファイルロックの方法に問題があると思ってますが、どこが悪いのかがわかりません。
ご教授いただけますと助かります。
よろしくお願いいたします。
