バカは手を動かせ

Computer Money

全角英数を半角英数に置換をかけたい。半角英数のUppercaseやらLowercaseなんかと本質的に同じで、正規表現のtrでいけると思ったんだけど、そうは問屋が卸さなかったです。jcode.pl使えば行けるみたいだけど、Perl 5.8でjcode.pl使うのはどうなの奥さん？　という議論もあるみたいじゃないですか。でもtr使うとうまくいかない。で、書いたのはこんなコード。

	$ret[3]		=~ s/Ａ/A/g ;
	$ret[3]		=~ s/Ｂ/B/g ;
	$ret[3]		=~ s/Ｃ/C/g ;
	〜中略〜
	$ret[3]		=~ s/，/,/g ;
	$ret[3]		=~ s/＆/&/g ;

バカは武器ないんだから、手動かして汗をかくしかない。
orz