古い記事
ランダムジャンプ
新しい記事
HTML::ColorKeywords [2006-02-11-1]を使った chalow 検索(clsearch.cgi)
ハック。やろうと思っていたらすでに実現されていたので、
私もさっそくやってみました!

- [戯] HTML::ColorKeywords を使って chalow の検索をハイライトする
  <http://cl.pocari.org/2006-02-11-5.html>

私の見たところ以下の二行を追加すればOKです。
どこに追加するかは前後の文脈から推測して下さい。手抜きですいません。
    @keys = map {s/^"(.+)"$/$1/; $_;} @keys;

    my $ck = HTML::ColorKeywords->new(keys => \@keys); # 追加!

    my $fn = "cl.itemlist";
    }
    close(F);
    $ck->do(string => \$outstr); # 追加!
}
なお、$open_tag, $close_tag は空にしておくと良いです。
# simple mode でマッチした文字列をはさむタグ
my ($open_tag, $close_tag);# =
#    (qq(<em style="background-color:yellow">), "</em>");

検索例:これは 便利 ですこれは 便利 です

あと、英文字のケースの区別を無視するように改造して v0.2 としました。
こちらからどうぞ→<http://ta2o.net/tools/pm/src/>
以下を参考に。lc()使用。
- [戯] 検索結果キーワードをハイライトする Perl モジュール
  HTML::ColorKeywords <http://cl.pocari.org/2006-02-11-4.html>

cl.pocari.org の sunaoka さん、ありがとうございました。