|
|
03/16(Sun) 01:03
■ 今月の訪問者数・先月の訪問者数の作り方(Web裏技さん応用技)
グラフィカル・アクセスカウンタ・プロV2.0からV3.0の解説に更新しました(99/02/01)
ソフト工作室 No.10の「本日の訪問者数・昨日の訪問者数」を改造して「今月の訪問者数・先月の訪問者数」にする方法を紹介します。
改造手順を説明します。
- pcount.plをmcount.plにリネームします。
- mcount.pl用のディレクトリmcountを作成します。ここにmcount.pl、count.txt、day.txt、date.txt、old.txtファイルを置きます。
- 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 "
"; }
方法は行の先頭に「#」を付けるとコメント行になります。
以上で改造は終わりです。ソフト工作室 No.10と同じ方法で、プログラムの設置、テストを行います。ただし、dateには「今日の日」ではなく「今月の月」をセットします。
|
|