生ログに近いアクセス解析

質問

サイトを訪れた人の[日時][IP]を調べらいのですが、
よくあるアクセス解析CGIではHOSTの統計と時間帯の統計が別々になっています。
私は[いつ][誰が]がアクセスしたのかを記録できるアクセス解析CGIを探しています。
例えば下記の様なものが理想です。

---------------------------------------
[日時][IP又はHOST]
[2005/07/23/21:09:56] [111.111.111.111]
[2005/07/24/19:23:01] [222.222.222.222]
[2005/07/24/23:58:22] [333.333.333.333]
[2005/07/25/03:19:41] [444.444.444.444]
---------------------------------------

[いつ][誰が]それさえ調べられればグラフや統計の機能は要りません。
調べるのはトップページ（index.html）のみです。

このようなアクセス解析は可能でしょうか？
このような動作をするCGIをご存知でしたら教えていただけないでしょうか？
よろしくお願いします。

回答No.2

noname#13325 · ベストアンサー

perlで書いてみました。

サーバーに保存してcgiのアドレスを
htmlのimageタグに書き込んで呼び出すといいと思います。
画像は邪魔にならないように適当に１ピクセルのデータでも作って指定するといいとおもいます。
accessLog_SaveToFile("testlog.log");
で　　指定したファイル名にログに書き込みますから
好きなファイル名をいれるといいです。
printoutImage("1pxsmall.jpg");
で画像を表示します。　いらないなら＃でコメントにするといいです。
とりあえず３つ(jpg,gif,png)は自動で拡張子振り分けますので
違う拡張子は自分でくわえてください。

ホストも書き込むのでしたら $ENV{'REMOTE_HOST'}
を$LineTextに足すといいです

[日時][IP又はHOST]
[2005/10/16/16:42:34][127.0.0.1]
[2005/10/16/16:42:36][127.0.0.1]
[2005/10/16/16:42:37][127.0.0.1]
実行するとこんな感じのが保存されます

ここから下はソースコード

accessLog_SaveToFile("testlog.log");
#printoutImage("zz_small.PNG");
printoutImage("zz_small.jpg");

sub accessLog_SaveToFile {
# accessLog_SaveToFile($SaveFileName);
my $SaveFileName;
my $nowtime;
my $NowText;
my $LineText;
my ($sec,$min,$hour,$mday,$month,$year,$wday,$stime);

$SaveFileName = $_[0];

#時間を取得
$nowtime = time();
($sec,$min,$hour,$mday,$month,$year,$wday,$stime) = localtime($nowtime);
$year += 1900; $month++;
$NowText = sprintf("%04d/%02d/%02d/%02d:%02d:%02d",$year,$month,$mday,$hour,$min,$sec);

#書き込むデータ
$LineText = "[". $NowText ."][". $ENV{'REMOTE_ADDR'} ."]\n";

# ファイルが無ければ先頭行追加
if (!(-e $SaveFileName)) { $LineText = "[日時][IP又はHOST]\n".$LineText; }

# 回数を書き込みます
open(TEXTFILE, '>>'.$SaveFileName);
print(TEXTFILE $LineText);
close(TEXTFILE);
}

sub ExtractFileExt {
# ExtractFileExt(const FileName: string): string;
my ($FileName, $FExt ,@Line);
$FExt="";
$FileName = $_[0];
# ピリオドで分割
@Line = split(/\./,$FileName);
if ($#Line > 0 ) {
$FExt = $Line[$#Line]
}
return $FExt;
}

sub printoutImage {
my $LoadFileName;
my ($buf,$size ,$ext);
$LoadFileName = $_[0];

if (open(IN, $LoadFileName)) {
binmode(IN);
binmode(STDOUT);
$ext = lc ExtractFileExt($LoadFileName);
print $ext;
if ($ext eq 'png') { print "Content-Type: image/png\n\n"; }
elsif ($ext eq 'gif') { print "Content-Type: image/gif\n\n"; }
elsif (($ext eq 'jpg')||($ext eq 'jpeg')) { print "Content-Type: image/jpeg\n\n"; }
while( read( IN, $buf, 1000 ) ){ print $buf; }
close(IN);
}
}

お礼

ご回答本当にありがとうございます。
まさかここまでしていただけるとは思わなかったので本当に心より感謝しております。
本当にうれしいです。ありがとうございます。

私の技術不足のせいか動作しないようです。
下記に私が行った手順を記しておきますので
もしお時間があれば問題のある部分を訂正してもらえると助かります。

(1)ソースコードと記載してある部分より下をコピペし、先頭部に#!/usr/local/bin/perlを加えaccess.cgiと名前をつけて保存しました。

(2)空のファイルtestlog.logを作成しました。

(3)適当なJPG画像を用意しzz_small.jpgに名前を変えました。

(4)FTPで/cgi-bin/access/に
access.cgi（755）
testlog.log（666）
zz_small.jpg（644）
をアップロードしました。

(5)index.htmlのBody内に<img src="/cgi-bin/access/access.cgi">
のタグを貼り付けアップロードしました。

(6)index.htmlにアクセスしましたが画像は表示されませんでした。testlog.logも空ファイルのままです。
試しに/cgi-bin/access/access.cgiに直接アクセスすると500Errorが表示されました。使っているのはInfoseekのサーバーです。

よろしくお願いします。

回答No.1

koneko5656

dopvSTAR*

ご質問の趣旨とは違ってしまうのですが
逆に高機能なもので、ソートすることによって
ご希望の表示形式にすることができる無料CGIです。

ログ表示の初期設定を設定ファイルでいじれますので、
日時とIPだけにしておけば
解析画面で ログ→ログ表示 の２クリックだけで表示できます。

ほかのデータが無駄になってしまいますが、
動作が軽快なので、気にならないと思います。

ファイル数が多いですが、設置はそう難しくないと思います。

参考URL：

http://tech.bayashi.net/

お礼

ご回答ありがとうございます。
なかなか自分では見つけれなかったので助かります。