count.cgi　呼び出す

【アクセスカウンタ】　

【ソース】　count.cgi 【解説】
  1. #!/usr/local/bin/perl
  3. print "Content-Type: text/html\n\n";
  5. #人数ファイル名
  6. $countfile="./numfile";
  8. #人数ファイルを読み込む
  9. open(FILE,"$countfile");
  10. $num=<FILE>;
  11. close(FILE);
  13. #人数ファイルが空の時はエラー表示
  14. if($num eq ""){
  15. #メッセージを表示
  16. print "人数ファイルが空です。";
  17. }
  19. #エラーでない場合には人数を１人増やす
  20. $num++;
  22. #新しい人数を人数ファイルに保存
  23. open(FILE,">$countfile");
  24. print FILE $num;
  25. close(FILE);
  28. #ブラウザに人数を表示する
  29. print "<center>あなたは$num人目のお客様です。<BR></center>\n";
  31. exit;





6.事前に「numfile」を作っておく。
　　（数字だけだから！？　拡張子なくてもよい）　
　　半角で「0」だけ入れておく。
　　ファイル属性は書き込み可能にして、
　　cgiと同じフォルダに設置する。













24.プラス１された$numの値を、
　　$countfileに代入されたファイル（numfile）に
　　上書きする。