Free CGI Perl PHP Script Olive Design CGI

シンプルカウンター

シンプルなアクセスカウンターです。

ファイル名counter.cgiを作成し、下のソースを貼り付けてパーミションを755にします。

カウントログ保存用の空ファイルcount.datを作成してパーミッションを666にして同じフォルダに入れておきます。

サンプル

ソース counter.cgi

#!/usr/bin/perl
#シンプルカウンター
#データ保存用ファイルcount.datを同じフォルダにいれておく。
# 今までのカウンタ数を読み込んで変数に代入
  open(COUNT,"count.dat") || die "logfile open Error." ;
  $count = <COUNT>;
  close(COUNT);
#カウントアップ
  $count++;

# カウント書き込み
  open(COUNT,">count.dat");
  print COUNT "$count";
  close(COUNT);

# 出力ブラウザにカウントアップした値を表示。
#「printf」は書式を付けてプリントする命令。
#「f」は書式（フォーマット）の意味。
#"%04d"が書式の指定です。
#"%04d"と書くと「４桁で先頭に０を付けて値を入れる」という意味。

  print "Content-type: text/html\n\n";
  print "<html><body>\n";
  printf("%04d?n", $count);
  print "</html></body>\n";


__END__
Perl PHP Free CGI Script OliveDesign CGI

Perl PHP Free CGI Script OliveDesign CGI

プライバシーポリシー / 特定商取引法に基づく表示