SSIを使用したカウンタを作ってみることにしましょう。SSIでは、Webサーバーで実行されたスクリプトの結果がHTMLに組み込まれてクライアントに返されます。

• HTMLからの呼び出し
• カウンタの仕組み
• 実際にスクリプトを記述してみる
• ファイルのロック機構

通常、SSIを呼び出すHTMLファイルの拡張子は shtml となります。また、スクリプトの拡張子は cgi か pl となります。

SSIを使用してHTMLからカウンタスクリプトを呼び出すには次のようにします。

<!--#exec cmd="./cgi-bin/count.pl"-->

#exec cmd のあとにスクリプトへの相対パスを記述します。このパスはSSIを呼び出すHTMLファイルからみたスクリプトの位置となります。

例えば･･･
   index.shtml
        |
        |-- /cgi-bin/
                |-- count.pl

index.shtmlからcount.plを呼び出す場合、
   <!--#exec cmd="./cgi-bin/count.pl"--> となります

アクセスカウンタの仕組みはとても簡単です。

カウンタファイルを読み込む ↓ カウントする ↓ カウンタファイルを書き込む ↓ HTMLファイルへ出力

では実際にスクリプトを記述してみましょう。

#!/usr/local/bin/perl

$count_file = "./count.dat";

##### カウンタファイルを読み込む
open(READ, "$count_file") || exit;
$count = <READ>;
close(READ);

##### カウントする
$count++;

##### カウンタファイルを書き込む
open(WRITE, "> $count_file") || exit;
print WRITE $count;
close(WRITE);

##### HTMLファイルへ出力
foreach (0..length("$count")-1) { 
	$img = substr($count, $_, 1);
	print "<IMG SRC=\"$img.gif\" ALT=\"$img\">"; 
}

exit;

上記のスクリプトは最もシンプルなグラフィカルアクセスカウンタのスクリプトです。カウンタデータは、同一ディレクトリ上にある count.dat としています。

複数のアクセスが集中することで、データファイルが同時にオープンされてデータファイルが破壊されることがあります。Webサーバーで書き込み処理を行うスクリプトではファイルロックは必須となります。

■ Perl5以降では･･･

flock() 関数を使用することで、ファイルロックを行うことができます。

flock($count_file, 2);
open(WRITE, "> $count_file") || exit;
close(WRITE);

ファイルをオープンする直前にファイルをロックし、ロック対象のファイルがクローズされた時点でロックが解除されます。

■ では、Perl5より以前のPerlではどうすれば･･･？

flock() 関数はPerl5より導入されたため、Perl4以前のバージョンでは使用することができません。このような場合、ロックファイルを作成してファイルの使用状態を監視します。

&file_lock;
OPEN (FILE, "> $data_file") || exit;
print FILE "abcde";
close(FILE);
&file_unlock;

##### ロックサブルーチン
sub file_lock {
	$retry = 3;
	while (-e $lock_file) {　　# ※１ ファイルテスト
		if ($retry == 0) {
			die "処理がタイムアウトになりました";　　# ※２
		}
		sleep 2;
		$retry--;
	}
	
	open (LOCK, "> $lock_file") || exit;
	close LOCK;
}

##### ロック解除サブルーチン
sub file_unlock {
	unlink $lock_file;　　#※３
}

ファイルロックサブルーチンでは、ロックファイルを作成します。すでにロックファイルが存在する場合（※１）、ファイルは使用中ということになるので、ロックファイルが消去されるまで、リトライします。上記の例では、リトライ回数を３回に設定し、３回目のリトライでもファイルが使用中である場合、スクリプトはエラー終了します（※２）。

ファイルロックが正常に終了したら通常のファイル操作を行い、ロック解除サブルーチンでロックファイルを消去します（※３）。

●ロックファイルをスクリプトから作成する場合、ディレクトリのパーミッションが通常の[７５５]ではできません。[７７７]あたりにパーミッションを変更してください。