- クリックカウンタ -

indexに戻る Perl&CGIの基本 コマンドプロンプト CGIの呼び出し SSI

変数 環境変数 関数 演算子 配列 正規表現

ファイルハンドル ファイルハンドル2 サブルーチン ライブラリ 時間と日時

カウンタ カウンタ画像 カウンタ昨日と今日 カウンタ重複防止 フォーム作成 フォームメール

クリックカウンタ アクセス制限

♣クリックカウンタ

リンクから一度CGIへ飛び、処理をした後、再度同じHTMLファイルに戻る。 それがカウントアップして表示されている。

＜＜clic.cgi＞＞
#!C:\Perl\bin\perl

#===================================================
# 各種設定
#===================================================
$lockfile = "./lock";


#===================================================
# カウントアップ
#===================================================
$url = $ENV{'QUERY_STRING'};

&lock;
open (IN,"<cntdata.dat") || &error; #ログファイルからデータの読み込み
	$cnt = <IN>;
close IN;

$cnt++; #カウントアップ
$count = sprintf("%05d", $cnt);

open (OUT,">cntdata.dat") || &error;
	print OUT $count; #記録の更新
close OUT;
&unlock;

print "Location: $url\n\n"; #クエリ文字以下のページにジャンプさせる
exit;


#===================================================
# エラーと排他処理サブルーチン
#===================================================
sub lock {
	$retry = 3;
	if (-e $lockfile) {
		$locktime = (stat($lockfile))[9];
		if ($locktime < time - 60) {&unlock;}
	}
	while (!mkdir($lockfile, 0755)) {
		if (--$retry < 0) {&error;}
		sleep(1);
	}
}


sub unlock {rmdir($lockfile);}


sub error {exit;}
-----------------------------------------------------
＜＜sample.cgi＞＞
<a href="http://localhost/tue/click.cgi?http://localhost/tue/sample.shtml">
<img src="./i-04.gif" border="2" vspace="2"></a><br>
クリック数：<!--#include file="./cntdata.dat"-->

クリックしてcgiを呼び出しカウントアップ。そのデータをinclude filでHTMLファイルに表示している。