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