Perl/UTF8, 日本語「全角」→「半角」変換ルーチンよくネットショップ等で買い物をすると 郵便番号は半角で入力してください。 とか言われてウザくないですか？ こういうのを解消するためのルーチンです。 条件 日本語に混ざる全角英数等を半角にする 半角カタカナを全角カタカナにする Encode::JP::H2Z その他 条件 Perl 5.8以降 利用可能文字列はutf-8のみ（そうでない場合はutf8に変換して渡してください） WTFPL（PDS扱いでも可）。 ソースは必ずutf-8で保存してください。 日本語に混ざる全角英数等を半角にする use utf8; use Encode (); sub utf8_zen2han { my $str = shift; my $flag = utf8::is_utf8($str); Encode::_utf8_on($str); $str =~ tr/ ！”＃＄％＆’（）＊＋，－．／０-９：；＜＝＞？
