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

携帯向けのページなどでは、全角カナの部分を半角カナへ変換する必要が出てくる(mustではないが)。このような場合にも、Jcodeモジュールを使用すれば良い。Jcodeモジュールが機能を用意してくれている。

サンプル

;#
;#全角カナを半角カナへ
;#

use Jcode;
print Jcode->new('アイウエオ')->z2h->sjis;

「z2h」が変換をしているメソッド。
最後の「sjis」とある部分が最終的に返却される文字コードとなる。