Perl で半角カナと全角カナの変換をする : Serendip – Webデザイン・プログラミングPerl を使って半角カタカナと全角カタカナの変換をするスクリプトを、標準モジュールの Encode.pm と Unicode::Japanese と Lingua::JA::Regular::Unicode を使ってそれぞれ変換スクリプトを書いてみる。 まずは、標準モジュールの Encode.pm を使った場合。 変換を文字コード euc-jp で行うために、変換前と変換後に utf-8 との文字コード変換を行う必要があった。 use Encode; use Encode::JP::H2Z; my $str_z = "Hello Ｗｏｒｌｄ.全角カタカナデス。 12345 ６７８９０"; my $str_h = "Hello Ｗｏｒｌｄ.全角ｶﾀｶﾅﾃﾞｽ｡ 12345 ６７８９０"; # 全角カナ→半角カナ Encode::from_to($str_z, "utf-8", "euc-j
