AN HTTPD ゲストブック/コメント集(2003年2月18日21:55)

tomoy さん、
HTTPサーバとは関係なくて純粋にPerlの問題ですね。
漢字コードがSJISのための問題だと思うので、とりあえず
http://www.din.or.jp/~ohzaki/perl.htm#JP_Trans
を読むのがよいでしょう。

perl初心者です、教えてください。

$oldtxt[0] = "aaa"; ・・・ $oldtxt[n] = "jjj";
$newtxt[0] = "111"; ・・・ $newtxt[n] = "999";

$buf = "長い日本語の文書・・・・";

s///の置き換え演算子を用いて$bufの中にある全てのoldtxtをnewtxtへ変換を行いたいのですが、

for ($i = 0; $i < $n; $i++){
$buf =~ s/$oldtxt[$i]/$newtxt[$i]/giox ;
}

とすると内部が展開？されてうまく変換できません。 "aaa"なども日本語です。
分かりにくい文章で申し訳ないのですが、どなたか方法を教えてください。
宜しくお願いします。