半角数字を全角数字へ変換する - Perl,Jcode

この記事は2006年10月21日に書かれたものです。

Jcodeモジュールを用いれば、半角数字を全角数字へ1発で変換できる。

サンプル

;#
;#半角数字を全角数字へ
;#
 
use Jcode;
print Jcode->new('1234567890')->tr('[0-9]', '[0-9]')->sjis;

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

関連書籍

failed to fetch data: unkown error

failed to fetch data: unkown error

コメント

コメントを入力. Wiki文法が有効です:
S J O H N