CGI・Perl

Jcodeモジュールを利用し、全角数字を半角数字へ変換する。

use Jcode;
print Jcode->new('１２３４５６７８９０')->tr('[０-９]', '[0-9]')->sjis;

「tr('[０-９]', '[0-9]')」の部分の文字コードはEUCである必要がある。プログラム全体がシフトJISの場合は、変数に入れ、その変数をEUCへ変換した後に渡せば良い。