メールアドレスが適正かどうかの判定方法について

質問

表題の通りですが、OKWeb/CGIのところに同じような質問があります。それを、PHPではどういったコードになるのか、ずばり
コード変換を教えて下さい。
参照：honnyaraさんの回答例です。
http://www.okweb.ne.jp/kotaeru.php3?q=370214
-------ここから-------

$mail_regex =
q{(?:[^(\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\\} .
q{\[\]\000-\037\x80-\xff])|"[^\\\\\x80-\xff\n\015"]*(?:\\\\[^\x80-\xff][} .
q{^\\\\\x80-\xff\n\015"]*)*")(?:\.(?:[^(\040)<>@,;:".\\\\\[\]\000-\037\x} .
q{80-\xff]+(?![^(\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff])|"[^\\\\\x80-} .
q{\xff\n\015"]*(?:\\\\[^\x80-\xff][^\\\\\x80-\xff\n\015"]*)*"))*@(?:[^(} .
q{\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,;:".\\\\\[\]\0} .
q{00-\037\x80-\xff])|\[(?:[^\\\\\x80-\xff\n\015\[\]]|\\\\[^\x80-\xff])*} .
q{\])(?:\.(?:[^(\040)<>@,;:".\\\\\[\]\000-\037\x80-\xff]+(?![^(\040)<>@,} .
q{;:".\\\\\[\]\000-\037\x80-\xff])|\[(?:[^\\\\\x80-\xff\n\015\[\]]|\\\\[} .
q{^\x80-\xff])*\]))*};

# $email が正しいメールアドレス(addr_spec)か判定する
if ($email !～ /^$mail_regex$/o) {
#エラーの場合の処理
print "不正なメールアドレスです\n";
}

-------ここまで-------
どうか、よろしくお願いします。

回答No.2

sisya · ベストアンサー

すいません、先ほどの回答の修正です。

if(preg_match("/^$mail_regex$/", $email);
ではなく

if(!preg_match("/^$mail_regex$/", $email)){
ですね。

お礼

長く気がつかなくてどうもすみませんでした。m(_ _)m
まさか、回答があったとは（＾＾；）
情報ありがとうございます。

回答No.1

sisya

単純にPerlの構文をPHPに変更したいのでしたら、
if($email !~ /^$mail_regex$/o){
の部分を
if(preg_match("/^$mail_regex$/", $email);
に置き換えるだけで動作すると思います。

oオプションをあまり積極的に試用していないので
微妙に挙動が違うかもしれませんが、
正確か否かのみの判定ならばこれで十分かと思います。

個人的にはそこまで厳密にチェックする事もないので
下記程度のチェックしかしないんですけどね
$mail_regex = "/^([\w\-\_\.\/\?\+]+\@[\w\-\_]+(\.[\w\-\_]+)+)$/";