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

Sun, 24 Feb 2008 23:14:33 +0900

任意のキーワードリストに含まれるテキスト中のキーワードに、特定のページ(URL)にリンクするPerlのサンプルスクリプトを作ってみました。ブログソフトとか掲示板ソフトを開発する際に役に立つと思います。文字エンコードがUTF-8、EUCではOKでしたが、SJISではうまく動きませんでした。

以下、サンプルスクリプトの一部です。

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;

リンクの処理のところが微妙ですが、適当に修正して使っていただければ幸いです。

はてなダイアリーのキーワードにリンクするためのサンプルもあるようです。動かしてみたわけでないのでハッキリとはいえませんが、ソースを見る限りテキスト内でアンカータグでリンクを行っている場合は、まずいような気もします。

はてなダイアリーキーワード自動リンクAPI - はてなダイアリー日記

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

テキスト一つ処理するだけで300KBですか、はてな側も大変かも知れませんが呼び出す方も大変ですね。

Link(2) | Trackback(1) | Comment(0)

キーワード

perl プログラミング オープンソース CGI サンプル プログラム キーワード リンク

語句ログ - ニュース、プログラミング、システムトレードの用語解説 - 日本の注目ニュース、コンピュータープログラミング（C/C++,Perl,PHP,SQL）、システムトレード（FX,CFD,株価指数,先物）に関する語句（Word）を日本語や英語で解説