昨日の楽しさはどこへやら…

あぁ〜案の定だんだん難しくなってきましたー。
今日作ったのは『アクセスカウンター』

なるほどこういう仕組みで動いていたのかぁ〜と
にわかに納得は出来るのですが、実際に自分なりに記述となると
まだまだそこまでの理解には至っていません。

$COUNTFILE = './count.dat'; #カウントファイルのパス
$IMGPATH = 'digit/'; #数字画像ファイルのパス
$FIGURES = 4; #アクセスカウンターの桁数

#カウントファイルの更新
open(FILE, "+<$COUNTFILE") or die("エラー:カウントファイルが開けません");
eval{ flock(FILE, 2); };
$count = ;
seek(FILE, 0, 0);
print FILE ++$count;
close(FILE);

#カウントの整形
$digit = sprintf("%0${FIGURES}d",$count);

#サーバー出力
print "Content-type: text/html\n\n";

$i = 0;
while($i < $FIGURES) {
$n = substr($digit, $i, 1);
print "\n";
++$i;
}