[count.txt]
0
[count.pl]
#!/usr/bin/perl
use strict;
use warnings;
my $finfo = "count.txt";
print "Content-type: text/html; charset=utf-8\n\n";
# アクセスカウントファイル読み込み
open(IN, "<" . $finfo) or die print "<p>Error $!</p>";
my $count = <IN>;
close(IN);
# アクセス数のマイナス値チェック
if ($count < 0) {
$count = 0;
}
# アクセス数をカウントアップ
$count++;
# アクセスカウントファイル書き込み
open(OUT, ">" . $finfo) or die print "<p>Error $!</p>";
print OUT $count;
close(OUT);
# HTMLで表示
print $count;