全角英数字 ⇔ 半角英数字 - Ceekz Logs (Move to y.ceek.jp)全角英数字を半角英数字に変換するときは、どのような方法を使っていますか？僕は jcode.pl をずっと使っていました。というか jcode.pl は、手放せないライブラリだったわけです。 &jcode::tr(\$text, '０-９Ａ-Ｚａ-ｚ', '0-9A-Za-z'); しかし、常々、正規表現で書くことは出来ないのかと考えていたわけです。書きました。 Perl メモ より $a = qr{(?<!\x8F)}; $b = qr{(?=(?:[\xA1-\xFE][\xA1-\xFE])*(?:[\x00-\x7F\x8E\x8F]|\z))}x; 全角英数字 → 半角英数字 $text =~ s/$a\xA3([\xB0-\xB9\xC1-\xDA\xE1-\xFA])$b/pack("C", ord($1) - 0x80)/oeg; 半角英数字 → 全角英数字 $text =~
