- 58 名前:( ´∀`)でけた〜 mailto:sage [02/11/04 12:59 ID:???]
- [アクセス解析]
CGI名: a.cgi 空ファイル用意: log そのままアクセスしてログ取り 引数に a をつけて解析結果表示 #!/usr/bin/perl &a if $ENV{QUERY_STRING}eq'a';($s,$m,$j,$d,$g,$y)=gmtime(time+9*60*60);$i=$ENV{ REMOTE_ADDR};$h=$ENV{REMOTE_HOST}||gethostbyaddr(pack('C4',split(/\./,$i)),2)|| $i;$y=sprintf("%d/%02d/%02d/ %02d:%02d:%02d",$y+=1900,++$g,$d,$j,$m,$s);open(F, '+<log');@d=<F>;unshift(@d,"$y,$h,$ENV{HTTP_USER_AGENT},$ENV{HTTP_REFERER}\n"); seek(F,0,0);print F @d;sub a{print"Content-type:text/html\n\n";open(F,'log'); while(<F>){($t,$h,$u,$r)=split(/,/,$_);print"$t<br>$h<br>$u<br>$r<hr>"}exit}
|

|