極悪です。
小出しにしてすみませんが、今朝自分で pdfsearch.pl を書いてて
思い出しました。Pod/perlop.html#qr/string/imosx に載ってる方
法です。qr// って比較的新しいので、あまり使いたくないかな。
もちろん、検索するパターンが正規表現になってないと効果があり
ません。
D:%timer "perl txtsearch2 -w [pP]erl > hoge2.html"
43.171000 sec
D:%timer "perl txtsearch -w [pP]erl > hoge.html"
53.437000 sec
D:%timer "perl txtsearch2 -w [pP]erl > hoge2.html"
43.421000 sec
D:%timer "perl txtsearch -w [pP]erl > hoge.html"
53.453000 sec
D:%diff txtsearch txtsearch2
97a98,99
> @strings = map(qr/$_/,@strings);
>
D:%diff hoge2.html hoge.html
D:%
閑舎 さんの [TSperl:145] txtsearch Ver.0.6 アップロード から
> - Web モードで検索語に色をつける。
この色がつくのが見やすいですね。Win2000 のコマンドプロンプト
でも色がつかないかな。何でエスケープシーケンス使えないんだろ
う>cmd.exe。
--
FZH01112@..., http://homepage1.nifty.com/dune/