- カウンタ -
♣カウンタの基本
＜＜count.cgi＞＞
#!C:\Perl\bin\perl
open(FILE, "+< count.dat") || die "File Open Error!\n";
$count = <FILE>; #1行目のデータを変数countに代入
flock(FILE,2); #データを書き込み出来ないようにロック
$data = $count+1; #プラス1をカウント
seek(FILE, 0, 0); #.datに上書き保存する為にデータの記位置を調整
print FILE $data; #.datファイルに書き込み
close(FILE);
print $data;
---------------------------------------------
＜＜count.shtml＞＞
<html>
<head>
<title>カウンタ</title>
</head>
<body>
あなたは、<!--#exec cmd="./count.cgi"-->番目のお客様です。
</body>
</html>
◆HTMLへの呼び出し
保存形式を.shtmlにし、呼び出す時は、<!--#exec cmd="***.cgi"--> で呼び出せる。
