2008年11月14日

全角数字を半角数字へ変換する

Jcodeモジュールを利用し、全角数字を半角数字へ変換する。
use Jcode;
print Jcode->new('1234567890')->tr('[0-9]', '[0-9]')->sjis;
「tr('[0-9]', '[0-9]')」の部分の文字コードはEUCである必要がある。プログラム全体がシフトJISの場合は、変数に入れ、その変数をEUCへ変換した後に渡せば良い。


ラベル:CGI Perl 数値
posted by wans at 22:35| Comment(0) | 数値 | このブログの読者になる | 更新情報をチェックする
×

この広告は180日以上新しい記事の投稿がないブログに表示されております。