Perlで全角とか半角とか

Windows Linux ソフト

全角英数字を半角に変換しようということで，

use Encode;

# 全角を半角に変換(基本的に"英数字記号，スペース")
$_ = decode('Shift_JIS', $_);
tr/\x{ff01}-\x{ff5d}\x{3000}/\x{0021}-\x{007d}\x{0020}/;
$_ = encode('Shift_JIS', $_);

とやったのだが，そういえばjcode.plってあったなぁと思い出した．ついでに半角，全角の変換について調べた結果が以下．次からはUnicode::Japaneseを使おう．

参考