カウント保存用ファイルを読んでくれません！

CGI-BBS > アクセスカウンタ > ＳＳＩ式カウンタ > カウント保存用ファイルを読んでくれません！

質問者 カメルーン投稿日 7/3(火) 19:56:02 [削除] (返信・回答が付いた後にこの質問の削除はできません)

先日、はじめてSSI仕様のアクセスカウンター設置に挑戦しました。
結果は数字は表示されますが、何回アクセスしても「1」しか出ないんです。
　　　　　　　　　　　　　　　　
構成は
count
｜｜　
｜count.pl
｜count.dat
｜
images
　｜
0.gif
1.gif
   :
9.gif　　　です。

count.plは

#!/usr/bin/perl
#桁数
$keta = 5;
#カウントファイル
$datefile = "count.dat";
open(FILE, "+<$datefile");
flock(FILE,2);

$count = <FILE>;
chop $count;
$count++;

seek(FILE, 0, 0);
print FILE "$count\n";
$pot = sprintf(sprintf("%%0%dld", $keta), $count);
for ($i=0; $i<length($pot); $i++) {
        $a = substr($pot, $i, 1);
        print "<IMG SRC=\"count/images/$a.gif\">";
}
flock(FILE,8);
close(FILE);

exit;

ちなみにサーバーはSSIを許可しています。

返信(回答)する

Ｗｅｂ裏技