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

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

No.1 ベストアンサー 回答者： bagyo 回答日時： 2001/04/04 12:11

こんにちわ。

全角文字を消すのでしたら、例えば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;

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

補足日時：2001/04/04 14:15