« チョコボール大豆 | メイン | あたらしいiMacが楽しみ »

半角記号を全角記号に変換

Jcode.pmを利用して半角記号を全角記号に変換する。
trを使うと一発なのだが、記号のリストのメモということで。

my $hankaku =<<'EOF';
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
0123456789!"#$%&'()*+,-./:;<=>?@[\]^_`{|}~。、・「」
EOF
#abcdefghijklmnopqrstuvwxyz(小文字はこっち
my $zenkaku =<<'EOF';
ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ
0123456789!”#$%&’()*+,−./:;<=>?@[¥]^_`{|}〜。、・「」
EOF
$hankaku=~s/\n//g;
$zenkaku=~s/\n//g;
$text = Jcode->new($text,"euc")->tr($hankaku,$zenkaku)->h2z->euc;


BlogSurfで利用してます。
コピペするときは、¥マークとバックスラッシュに注意