#!/usr/bin/perl #**** access log program ***** # アクセスログ解析プログラム # Version 1.0 2002/01/30 mikio.fujio : 初期版 # # ファイル名の設定 $agent = "agent.log"; # ブラウザ情報格納ファイル名 $refer = "refer.log"; # リンク参照情報格納ファイル名 $host = "host.log"; # ホスト情報格納ファイル名 # ブラウザ情報の取得 open(AGENT, "$agent"); $num = ; chop($num); $n = 0; #print "num=$num\n"; while($n<$num){ $line = ; chop($line); # ログの取得 $cnt = ; chop($cnt); # アクセス数の取得 #print "$line $cnt\n"; $agent{$line} = $cnt; # %agent への格納 $n = $n + 1; } close(AGENT); # リンク情報の取得 open(REFER, "$refer"); $num = ; chop($num); $n = 0; while($n<$num){ $line = ; chop($line); # リンク元の取得 $cnt = ; chop($cnt); # アクセス数の取得 $refer{$line} = $cnt; # %refer への格納 $n = $n + 1; } close(REFER); # ホスト情報の取得 open(HOST, "$host"); $num = ; chop($num); $n = 0; while($n<$num){ $line = ; chop($line); # ログの取得 $cnt = ; chop($cnt); # アクセス数の取得 $host{$line} = $cnt; # %host への格納 $n = $n + 1; } close(HOST); #HTML書き出し print "Content-type: text/html\n\n"; print "\n\n"; print "Access Log\n"; print "\n"; print "\n\n"; print "

Access Log

\n"; print "このページでは、藤尾研究室のＨＰにアクセス頂いた方のログを表\示しています"; print "
\n"; #ブラウザ情報の書き出し print "\n"; print ""; print ""; print ""; $n = 1; @sort_agent = sort by_agent keys(%agent); foreach(@sort_agent){ print ""; print ""; print ""; $n = $n + 1; } print "
Rank
Browser name
number
$n
$_
$agent{$_}
\n\n

\n\n"; print "

\n"; #リンク元情報の書き出し print "\n"; print ""; print ""; print ""; $n = 1; @sort_refer = sort by_refer keys(%refer); foreach(@sort_refer){ $link = $_; if($link eq ""){ $link = "direct"; } print ""; print ""; print ""; $n = $n + 1; } print "
Rank
Link from
number
$n
$link
$refer{$_}
\n\n

\n\n"; print "

\n"; #ホスト情報の書き出し print "\n"; print ""; print ""; print ""; $n = 1; @sort_host = sort by_host keys(%host); foreach(@sort_host){ print ""; print ""; print ""; $n = $n + 1; } print "
Rank
Host from
number
$n
$_
$host{$_}
\n\n

\n\n"; print "

\n"; # HTML最終出力 print "\n\n"; sub by_agent{ if($agent{$b} != $agent{$a}){ $agent{$b} <=> $agent{$a}; }else{ $a cmp $b; } } sub by_refer{ if($refer{$b} != $refer{$a}){ $refer{$b} <=> $refer{$a}; }else{ $a cmp $b; } } sub by_host{ if($host{$b} != $host{$a}){ $host{$b} <=> $host{$a}; }else{ $a cmp $b; } }