フォームにメールアドレスを記入禁止にするには？

質問

Q&Aフォームにメールアドレスを記入させないためにはどのようにしたら良いでしょうか？
以下がそのフォームの記入内容のチェックです

sub faq_form_check {

# 書き込み停止状態?
if($end_flg){&error("Faq Error !","Q&Aに投稿できない状態です");}

$FORM{'faqcom'} =~ s/<br>//g;
if(!$FORM{'faqcom'}){&error("Form Error !","コメントが入力されていません");}
if($FAQ_MAX*2 < length($FORM{'faqcom'})){&error("Form Error !","コメントが全角$FAQ_MAX文字を超えています$br戻って修正して下さい");}
if($no_pass){&error("Login Error !","Q&Aへの投稿はログインが必要です");}

}

この部分に
if(○○○○($FORM{'faqcom'})){&error("Form Error !","メールアドレスは記入できません");}
こんな感じでいけるのではと思うのですが○○○部分の記載方法がわかりません
お知恵のある方よろしくお願いいたします

回答No.1

okmotokun · ベストアンサー

ご質問の、
if(○○○○($FORM{'faqcom'})){&error("Form Error !","メールアドレスは記入できません");}　　のところを、

if($FORM{'faqcom'}=~/[a-z0-9][^\@]+\@[^\@]+\.[a-z]{2,4}/i){&error("Form Error !","メールアドレスは記入できません")}

とすれば一応よろしいかと思います。

お礼

ありがとうございます
早速追記してみたところうまくいきました
とても感謝しています