HTML::ColorKeywords で chalow 検索ハイライト
2006-02-14-3
[Chalow][Programming]
HTML::ColorKeywords [2006-02-11-1]を使った chalow 検索(clsearch.cgi)
ハック。やろうと思っていたらすでに実現されていたので、
私もさっそくやってみました!
- [戯] HTML::ColorKeywords を使って chalow の検索をハイライトする
<http://cl.pocari.org/2006-02-11-5.html>
私の見たところ以下の二行を追加すればOKです。
どこに追加するかは前後の文脈から推測して下さい。手抜きですいません。
検索例:これは 便利 です、これは 便利 です
あと、英文字のケースの区別を無視するように改造して 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 さん、ありがとうございました。
ハック。やろうと思っていたらすでに実現されていたので、
私もさっそくやってみました!
- [戯] 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";
なお、$open_tag, $close_tag は空にしておくと良いです。} close(F); $ck->do(string => \$outstr); # 追加! }
# 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 さん、ありがとうございました。