リンク元の集計

Apache のログを見て，本学のトップページに来る人はどこのリンクをたどって来るのか，統計をとってみましょう。

#!/usr/bin/perl -w

while (<>) {
    @F = split;
    if ($F[6] eq "/" && $F[10] =~ /\/\/([^\/]+)\//) {
        $count{$1}++;
    }
}
foreach $x (sort { $count{$b} <=> $count{$a} } keys %count) {
    print "$x $count{$x}\n";
}

これで

./referer.pl /usr/local/apache/logs/access_log

奥村晴彦

Last modified: 2004-12-24 12:53:14