本日  昨日
 
03/16(Sun) 02:29

今月の訪問者数・先月の訪問者数の作り方(Web裏技さん応用技)
グラフィカル・アクセスカウンタ・プロV2.0からV3.0の解説に更新しました(99/02/01)

ソフト工作室 No.10の「本日の訪問者数・昨日の訪問者数」を改造して「今月の訪問者数・先月の訪問者数」にする方法を紹介します。

改造手順を説明します。

  1. pcount.plをmcount.plにリネームします。
  2. mcount.pl用のディレクトリmcountを作成します。ここにmcount.pl、count.txt、day.txt、date.txt、old.txtファイルを置きます。
  3. mcount.plのソースを変更します。

ディレクトリ関連の変更。

  • 1行目 #!/usr/local/bin/perlを #!/usr/bin/perl に変更します。
  • 35行目 $basedir = './count/';を $basedir = './mcount/'; に変更します。

日次処理から月次処理への変更。

  • 60行目の「gmtime」で取得した$monには0から11までの数字が入るので下記の1行を60行目の後に追加します。
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime(time + 9*3600);
    $month = ($mon + 1); ------------------追加行
  • 82行目
    if ($fd eq '' || $fd ne $mday) { を if ($fd eq '' || $fd ne $month) { に変更します。
  • 85行目
    print DAY $mday; を print DAY $month; に変更します。


ブラウザへの表示はcatコマンドで行うので、スクリプト内での表示部分をコメントにします。

  • 113,114行目をコメント行にします。 113行 foreach (0..length("$count")-1) { $img = substr($count,$_,1); 114行 print "<img src=\"$graphics$img.gif\" alt=\"$img\" border=\"0\">"; } 方法は行の先頭に「#」を付けるとコメント行になります。


以上で改造は終わりです。ソフト工作室 No.10と同じ方法で、プログラムの設置、テストを行います。ただし、dateには「今日の日」ではなく「今月の月」をセットします。
 
 
©1997- Kikuchisan's workshop All rights reserved //

スポンサーリンク

関連コンテンツ