perlで入力チェック

昨日ここでお世話になって無事プログラムが完成しました。でももう1個だけどうしても分からない事があるので
教えてください。

フォームで半角、全角数字の入力チェックを行おうとして正規表現を使おうと思ったのですが、perlのコードが分かりません。いろんなサイトを見てこれかな？ってのは探したのですが駄目でした。知恵をお貸しくださいませ。

if ($FORM{'kingaku'} ne *ここに入れるのがわかりませんT0T*) { &error("金額を数字で入力してください。"); }

たぶん、これで入力チェックのはずですが・・違ったら指摘おねがいします。

No.1 ベストアンサー 回答者： Seiryo 回答日時： 2003/06/11 20:06

昨日よりわかりやすい質問ですね。

if(($FORM{'kingaku'} =~ /^[0-9]+$/) == 0){

}

間違ってたらごめんなさいね

この回答へのお礼

本当にありがとうございます。できました。
昨日はどうもすみません。これから、勉強していきたいと
思います。ほんとうにありがとうございました。

お礼日時：2003/06/11 21:24