一日分だけのカウンターにしたい
大倉章
1999/04/28(水) 20:31:23
ごくシンプルなカウンターで、
#! /usr/local/bin/perl
#ssiテキストカウンター
#shift;
#$_ = '_'.$_ if $_; = 1;
open(IN,"count0.txt");$count1 = <IN>;close(IN);
open(IN,"count1.txt");$count2 = <IN>;close(IN);
if ($count1 > $count2){
$maxcount=$count1;$i='1';
}else{
$maxcount=$count2;$i='0';
}
$maxcount++;
if (($maxcount % 10) > 0){if ((time % 4) >2){$maxcount++;}}
open(OUT,">count$i.txt");
eval 'flock(OUT,2);';print OUT $maxcount;eval
'flock(OUT,8);';close(OUT);
print $maxcount;
exit;
というのを使っています。
かなり頑丈で便利なので、これで１日分のアクセスを数えて、
日付が変わったら０にもどるように改造したいです。
よろしくお願いします。