全角数字を半角数字に変えたいがtr/０...９/0...9/だけではうまくいかない。

HTMLから、全角数字を入力しても、半角数字に変換して、
計算処理をしたいのですが、うまくいきません。現在
$kazu =~ tr/０１２３４５６７８９－/0123456789-/;
としているのですが、
全角で　１２３　と入力すると、　030507　と返ってきます。
どうしたら良いか教えてください。
8進数→10進数　16進数→10進数の
変換を試みたのですが、違うみたいです。
よろしくお願いします。

No.1 ベストアンサー 回答者： leaz024 回答日時： 2004/04/08 13:23

もし、Perlのバージョンが5.8ならば、スクリプトの先頭に

use encoding 'sjis';
を入れてみてください。
※スクリプトがeucの場合は、sjis を euc-jp に替えてください。

また、それより以前のバージョンならば jcode.pl を使い、
jcode::tr(\$kazu, '０１２３４５６７８９－', '0123456789-');
としてください。

参考URL：http://www.mikeneko.ne.jp/~lab/kcode/jcode.html# …

この回答へのお礼

早速お教えいただきましてありがとうございます。
お陰様で、ばっちりです。(^^;
ありがとうございました。

お礼日時：2004/04/08 15:39