perl-cgi 文章のマッチングについて

質問

辞書テキストで作ってそれを、任意の文章にマッチングさせ、変換したいのですが、どのようにすると、（プロバイダの）サーバに負担の少ないCGIになりますか？
やりたいことは、
文章＞＞eigo(lemonとスシ)
を入力すると、
文章＞＞エイゴ(レモンとスシ)
と返されるCGIです。

今考えているのは、下記ですが、perl-cgiを初めて間もないため、色々なHPを参考にして、なんとか、変換まではできたのですが、、サーバに過大な負担をかけているかが心配です。そこで、効率的なものに書き換えていただけますととても助かります。

宜しくお願い致します。

----etoj.cgi----
#!/usr/bin/perl

print "Content-type: text/html;charset=utf-8\n\n";

$str = '文章＞＞eigo(lemonとスシ)';

open in,"dic.txt";
@array = <in>;
close in;

$n = 0;
foreach(@array){
$_ =~ s/\n//g;
$_ =~ s/\r//g;
@temp = split(/\t/,$_);
$eng[$n] = $temp[0];
$jpn[$n] = $temp[1];
undef @temp;
$n++;
}
print $str;

$i=0;
foreach(@eng){
$str =~ s/$_/$jpn[$i]/g;
$i++;
}
print "<HR>";
print $str;

exit;
----------------

--dic.txt--
lemon￥ｔレモン
eigo￥ｔエイゴ
susi￥ｔスシ
以下、500KB程度続きます。
-----------

回答No.2

ren10 · ベストアンサー

#1 で書きました

str =~ s/$eng/$jpn/g;

上記箇所に $ が抜けてました。すみません。
正しくは

$str =~ s/$eng/$jpn/g;

です。

お礼

回答いただきありがとうございます。
大分、簡略化できてよかったです。
ありがとうございました。

回答No.1

ren10

#!/usr/bin/perl

print "Content-type: text/html;charset=utf-8\n\n";

$str = '文章＞＞eigo(lemonとスシ)';

print $str;

open(IN, "dic.txt");
while(<IN>){
chop;
($eng, $jpn) = split(/\t/);
str =~ s/$eng/$jpn/g;
}
close(IN);

print "<HR>";
print $str;

同じ処理を簡略化？して書き直してみましたが…
こんな感じではどうでしょう？