アクセスカウンター(画像)
#! /usr/local/bin/perl # 画像保存ディレクトリ $url = "../../sample/img/no/"; # カウントの読み込み open(FILE, "+<./dat/count.dat"); eval{ flock(FILE, 2) }; $count = <FILE>; # カウントに1を加える ++$count; # カウントの書き込み seek(FILE, 0, 0); print FILE $count; close FILE; # HTML出力 print qq(Content-type: text/html\n\n); print qq(<html>\n); print qq(<head>\n); print qq(<title>アクセスカウンター</title>\n); print qq(</head>\n); print qq(<body>\n); print qq(<center>あなたは ); for($i = 0 ; $i < length($count) ; $i++) { # 画像を表示 my $n = substr($count, $i, 1); # 1文字抜き出す print qq(<img src="$url$n.gif" alt="$n">); } print qq( 人目の訪問者です</center>\n); print qq(</body>\n); print qq(</html>\n); exit;
〔 実行する 〕