半角カナを全角カナへ変換する - Perl,Jcode

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

半角カナが含まれていたらエラーを出すのはちょっと不親切だ。半角カナを自動的に全角カナへ変換したい。半角カナを全角カナへ変換する機能は、Jcodeモジュールが用意してくれている。

サンプル

;#
;#半角カナを全角カナへ
;#
 
use Jcode;
print Jcode->new('アイウエオ', 'sjis')->h2z->sjis;

「アイウエオ」の部分を半角カナに直して実行する。 「h2z」が変換をしているメソッド、最後の「sjis」とある部分が最終的に返却される文字コードとなる。newをする際に'sjis'といった具合に文字コードを指定しているのは、半角カナが含まれている場合に文字コードの自動判定が期待通りに動作しない事への対策である。よって、文字列がEUCであれば'euc'にしておく。

関連書籍

コメント

コメントを入力. Wiki文法が有効です:
P F G O K