全角文字にマッチする正規表現はあるんでしょうか？

質問

""で囲まれた範囲に含まれる全角文字を消したいのですが、正規表現で出来るんでしょうか？
ご存知の方よろしくお願いします。

回答No.1

bagyo

こんにちわ。
全角文字を消すのでしたら、例えばasciiコード以外にマッチするものを削除するという方法はいかがでしょうか？（perlが日本語対応している必要がありますし、文字コードによっては上手くいかないかもしれませんが)

s/[^a-zA-Z0-9_]+//g;
または、
s/\W+//g;

一応、EUCでは動くはずです。

補足

一応Windows環境で作成していますので、s-jisということで、こんな風にしたら出来そうでした。

s/([\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])//g;

ありがとうございました。