半角記号を全角記号に変換
Jcode.pmを利用して半角記号を全角記号に変換する。
trを使うと一発なのだが、記号のリストのメモということで。
my $hankaku =<<'EOF';
ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
0123456789!"#$%&'()*+,-./:;<=>?@[\]^_`{|}~｡､･｢｣
EOF
#ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ(小文字はこっち
my $zenkaku =<<'EOF';
ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ
０１２３４５６７８９！”＃＄％＆’（）＊＋，−．／：；＜＝＞？＠［￥］＾＿｀｛｜｝〜。、・「」
EOF
$hankaku=~s/\n//g;
$zenkaku=~s/\n//g;
$text = Jcode->new($text,"euc")->tr($hankaku,$zenkaku)->h2z->euc;
BlogSurfで利用してます。
コピペするときは、￥マークとバックスラッシュに注意