テキスト中のキーワードをリンクするPerlサンプルスクリプト

my @wordlist = ('はてな', 'ブログ', 'アルファブロガー');
foreach my $word (@wordlist) {
    my $encword = $word;
    $encword =~ s/(\W)/'%'.unpack('H2', $1)/eg;	# uri encode
    my $link = "<a href=\"serach.cgi?querystr=$encword\">$word</a>";
    $text =~ s/$word/$link/g;
    # アンカーテキストのキーワードは元に戻す
    my $pattern = "(<a href.+)<a href.+$word</a>(.+/a>)";
    $text =~ s/$pattern/$1$word$2/g;
}
print $text;

なお、上記ファイルは現状で300KBほどありますので、アプリケーション側で一定時間キャッシュして頂くなどの措置をお願いできればと思います。

my @wordlist = ('はてな', 'ブログ', 'アルファブロガー');
foreach my $word (@wordlist) {
    my $encword = $word;
    $encword =~ s/(\W)/'%'.unpack('H2', $1)/eg; # uri encode
    my $link = "$word";
    $text =~ s/$keyword(?![^<]*<\/a>)/$link/gi;
}
print $text;

過去ログ