----- Command Infomation ----- argc is 1 argv is counter01.cgi ----- Script Infomation of counter01.cgi----- #!/usr/local/bin/perl5 # ロック制御付きカウンタ # by Naotoshi Haraguchi # 2001/03/06 Last modefied unshift(@INC, "."); require "util.pl"; $cntfile = "./counter01.dat"; #カウンタファイル名 #カウンタファイルが無ければ初期ファイルを作成 if(! -f $cntfile){ open(CNT, "> $cntfile") || &exitERR("counter01.cgi: $cntfile を作成出来ません。"); print CNT "0"; close(CNT); } #カウンタファイルへのアクセス &lockopen(CNT, "+< $cntfile") || &exitERR("counter01.cgi: $cntfile をロックオープン出来ません。"); $cnt = ; $cnt++; seek(CNT,0,0); print CNT "$cnt"; &unlockclose(CNT,$cntfile); #カウンタの表示 while(){ s/__CNT__/$cnt/; print; } exit(0); __END__ Content-type: text/html アクセスカウンタ
あなたは__CNT__人目のお客様です。