mieki256's diary

自分なりに色々手を入れたところがある log.cgi なので、公式に配布されてるものとは違ってる可能性も高いのだけど。一応メモ。

ファイル名や、ワークの確保。

# URL -> 名前 への変換マップ・ファイル(正規表現)
my $url_map_regexp = "$diaryDir/conf/url_map_regexp.txt";

my %urlnameregexp;

sub open_log { } 内に、ファイルを読み込む部分を追加。

    if (-f $url_map_regexp) {
        open(URLMAPREGEXP,"$url_map_regexp") || die "Can't Open URLMapRegexp File: $url_map_regexp: $!";
        while (<URLMAPREGEXP>) {
            CodeConv::toeuc(\$_);
            $urlnameregexp{$1} = $2 if (/^(\S+)\s+(.+)$/);
        }
        close(URLMAPREGEXP);
    }

sub referer { } 内のループ内に、比較部分を追加。

            # 正規表現でURL->名前変換
            my $refname = $_;
            my $fg = 0;
            foreach my $key ( keys %urlnameregexp ) {
                if ( /$key/ ) {
                    $refname = "  [regexp] " . $urlnameregexp{$key} . " [" . $1 . "]";
                    $fg = 1;
                    last;
                }
            }

            if ( $fg == 0 && exists($urlname{$_})) {
                $refname = $urlname{$_};
            }

sub recent_ref { } のループ内に、比較部分を追加。

            # 正規表現でURL->名前変換
            my $refname = $REFERER[$j];
            my $fg = 0;
            foreach my $key ( keys %urlnameregexp ) {
                if ( $refname =~ /$key/ ) {
                    $refname = "  [regexp] " . $urlnameregexp{$key} . " [" . $1 . "]";
                    $fg = 1;
                    last;
                }
            }

            if ($fg == 0 && exists($urlname{$REFERER[$j]})) {
                $refname = $urlname{$REFERER[$j]};
            }

比較用の記述ファイル。conf/url_map_regexp.txt。

b.hatena.ne.jp/keyword/(.*)$ はてブ:キーワード

正規表現部分と、名前を、スペースで区切って記述。後方参照用に1箇所だけ確保。

考えてみると、referer {} と recent_ref {} で、2回比較を行ってるんだな…。1回処理した結果をどこかに保存して、とかやれば、単純計算で、半分の処理時間で済みそうな。いや、それだとメモリを大量に使ってしまって、結局時間がかかってしまうかしら。

そもそも、どこらへんが処理速度のネックになってるんだろう。そこからしてよくわかってない。＞自分。

これを、実際に変数が使われるブロックの中で宣言するようにしたら、多少は速度的に改善されたりしないだろうか。Cなんかだとレジスタの活用等に繋がる云々、なんて話が大昔はあったような記憶もあるし。と思ったが、スクリプト実行に先立ってコンパイル(ていうのかこの場合?)する際に最適化がされていて、その手の改変はあんまり関係なかったりする可能性もあるな。というかそのぐらいのことはしてそうな気もする。＞Perl。