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

改造手順を説明します。

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

• １行目 #!/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; に変更します。

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