TEXT BOXに半角しか入力できないようにするには？

KK 2000/01/25(火) 07:50:35
Perlでの質問です。
TEXT BOXに入力する文字を半角だけにするにはどうしたらいいのでしょう？
マッチングで、/\W/ってやっても、[a-zA-Z0-9]だけですよね・・・？

全ての半角（当然カタカナは除く）のチェックをしたいのですが・・・。
よろしくお願いします。

Ichi 2000/01/26(水) 06:20:01
全て半角だと、漢字が書けませんが、それはさておき、
通常使う半角文字でないものは [^\r\n\s!-~] でどうですか？
ASCIIで'!'は21h,'~'は7ehです。
これで、上記の文字を消すなり、上記の文字が
入っていたら拒否するなりしてください。
(動作未確認です)
ただ、SJISの場合、漢字の第二バイトに上記の文字が含まれるので、
EUCに変換してからの方がいいと思います。

[上に] [前に] [次に]