266(6): nobody [] 04/03/04 17:41 ID:yJd59Upc(1) AAS
accesslog.cgi - 7行アクセス解析。
SSIで埋め込むことで記録。例：<!--#exec cgi="accesslog.cgi"-->
データを見るときは http://○○/accesslog.cgi?20040304&MSIE 6
みたいにパラメータ’日付 & 検索文字列（省略可））を渡して呼び出します。

正直perl歴はまだ半年で、テクニック的なものは使えないのでこの程度です。

#! /usr/bin/perl
sub z{local(*z)=$_[0];$z=~s/^(\d)$/0$1/;}print"Content-Type:text/plain\n\n";%e=
%ENV;$q=$e{'QUERY_STRING'};($s,$n,$h,$d,$m,$y)=localtime;$y+=1900;$m++;z(*m);z(
*d);z(*h);z(*n);z(*s);if(!$q){open(F,">>$y$m$d.txt");print F
"$h$n$s<>$e{'REMOTE_ADDR'}<>$e{'HTTP_USER_AGENT'}<>$e{'HTTP_REFERER'}\n";}else{
($p,$k)=split(/&/,$q);open(F,"$p.txt");while(<F>){$c++;if($_=~/$k/){print;$t++;
}}print"\n全$c件/ヒット$t件\n";}close(F);

268(1): 266 [] 04/03/05 18:15 ID:EBEJkXEP(1) AAS
しっかりと読みました。
>>267さんが短くしてくれたおかげで、妥協した機能がつけれました。

日付の範囲指定を可能にして、データをtab区切りで記録して
ファイルを表示するのではなくCSV(TSV)としてDLするようにしてみました。

#! /usr/bin/perl
print"Content-Disposition: attachment;filename=log.csv;\nContent-Type: text/t".
"ab-separated-values\n\n";if(($f,$t,$k)=split/&/,$ENV{QUERY_STRING}){for($f...$
t){/^\d{8}$/x&&open F,"$_.txt";($k?/\Q$k/:1)&&(print)while<F>}}else{s/^\d$/0$&/
for($s,$n,$h,$d,$m,$y)=localtime;$y+=1900;$m++;$m=~s/^\d$/0$&/;open F,">>$y$m".
"$d.txt";print F join("\t",$h,$n,$s,@ENV{REMOTE_ADDR,HTTP_USER_AGENT,
HTTP_REFERER}),"\n"}

>>267さんのにただ付け足した感じです。
それでも、たった一日でものすごい勉強になりました。

271(1): nobodyさん [sage] 04/03/12 09:36 ID:??? AAS
● SSI での使用

__END__ トークン以下に
%s<br />all:%06d today:%03d yesterday:%03d

HTML ファイルの body 要素内に
<!--#include virtual="/cgi-bin/7rwcntr.cgi"-->

● JavaScript 経由で CGI プログラムとして使用

__END__ トークン以下に
function writeCount() {
　　document.write("%s<br />all:%06d today:%03d yesterday:%03d");
}

HTML ファイルの header 要素内に
<script src="/cgi-bin/7rwcntr.cgi?1" type="text/javascript"></script>

body 要素内に
<script type="text/javascript"><!--
　　writeCount();
//-->
</script>