Jcodeのtrが遅いので代替のプログラムを作りたい

質問

検索用のプログラムをつくってるのですが
検索のために全角⇒半角変換(ANK文字のみ)、ひらがな⇒カタカナ変換をしているのですが
とても遅くて困ってます。
本当はCでモジュールを作りたい気がするほどのものなのですが
汎用性を考慮して、何もモジュールを使わない、または Encode モジュールだけで
インデックスを作成しないという前提で高速化を実現する方法はあるでしょうか？

参考までに 合計500kバイトの114の文書ファイルを検索するのに
Athlon64 3200+ (メモリ4G) で約1.5秒かかります。
本番環境には、約100M以上の5000ファイルがあるので心配です。

use Jcode;

sub test {
my($parm)=@_;
my $zen='！”＃＄％＆’（）＊＋，－．／０１２３４５６７８９：；＜＝＞？＠ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ［￥］＾＿‘ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ｛｜｝';
my $han='!"#$%&\'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}';
my $zentrs="あいうえおかきくけこがぎぐげごさしすせそざじずぜろたちつてとだぢづでどなにぬねのはひふへほばびぶべぼぱぴぷぺぽまみむめもやゆよゃゅょャュョっッらりるれろわをん";
my $zentre="アイウエオカキクケコガギグゲゴサシスセソザジズゼロタチツテトダヂヅデドナニヌネノハヒフヘホバビブベボパピプペポマミムメモヤユヨヤユヨヤユヨツツラリルレロワヲン";
return Jcode->new($parm)->tr($zen,$han)->tr($zentrs,$zentre);
}

参考までに、Jcode.pm v1.99（β）では、tr/(from)/(to)/ で実現されているようですが
これをパクってもうまくいきませんでした。

回答No.1

hikomin

私はベンチマークを取っていないのですが、Perl 5.8でのマルチバイト環境ではどうですか？（逆質問？）

use utf8;
my $buffer = 'テスト用の文字列';
$buffer =~ tr/０-９Ａ-Ｚａ-ｚ/0-9A-Za-z/; #全角英数->半角英数

とか以下略で。いちいちJcodeインスタンスを作るとかよりはマシな気がしますが。

これで速くならないのであれば…うーん…。

お礼

うーん、お礼欄ですみません。
パクろうと思ったはずのJcode.pm v1.99 を test::Jcodeに変更して
テストしてみたら、こっちのが８倍遅かったようです。汗
うーん、なぜだろう。汗

http://openlab.jp/Jcode/index-j.html

補足

速くなる前に、Webページ全体が文字化けしてしまいます。TT
内部コード、HTML出力すべてeuc-jpを使用しています。

呼び出し元：（これでヒットさせたい）
use Search qw(Search);
if (Search("モジレツ", "もじ")) {
ヒット;
}
モジュール：
sub Search {
my($text,$keyword)=@_;
$text=&test($text);
$keyword=&test($keyword);
return($text =~ /\Q$keyword\E/i);
}