Perl/日本語処理/全角半角の変換の変更点

追加された行はこの色です。
削除された行はこの色です。
Perl/日本語処理/全角半角の変換へ行く。
Perl/日本語処理/全角半角の変換の差分を削除

* 全角半角の変換 [#f64fa07a]

** use utf8の環境な場合 [#i868aea7]
** UTF8フラグ付きの環境でuse utf8な場合 [#i868aea7]
Lingua::JA::Kanaのzenkaku2hankaku()等を使う。

** use encoding 'euc-jp'な場合 [#a8d2b5af]
** UTF8フラグ付きの環境でuse encoding 'euc-jp'な場合 [#a8d2b5af]
 $str =~ tr/０-９Ａ-Ｚａ-ｚ/0-9A-Za-z/;
みたいにtrで変換する。

** UTF8フラグ付きの環境じゃない場合 [#z8e4f609]
 Jcode->new($str, 'euc-jp')->tr('Ａ-Ｚａ-ｚ０-９','A-Za-z0-9');
Jcodeを使う。