php 检查email电子邮件函数(奇葩写法)

她人

以前写的一个PHP表单电子邮件发送程序，其中采用如下方法来验证电子邮件地址格式是否正确：

代码如
eregi("^[_a-z0-9-]+(.[_a-z0-9-]+)*@[a-z0-9_-]+.[a-z0-9_-]+.*", $email)


后来发现类似于将.误写为,的电子邮件地址也能通过验证，例如user@126,com。经过检查，发现它实际上只验证了用户名部分，所以又在网上找到一个教程，其中给出的例子如下：

代码如
eregi('^[_a-z0-9-]+(.[_a-z0-9-]+)*@[a-z0-9-]+(.[a-z0-9-]+)*$',$email)


经过检查，发现电子邮件地址user@126,com仍然能够通过它的验证。找到了一个示例：

代码如
eregi("^[_.0-9a-z-]+@([0-9a-z][0-9a-z-]+.)+[a-z]{2,3}$",$str


这个看起来更加合理一些，因为它对后缀名称进行了验证，尽管现在出现了4个字符以上的顶级域名，但是只需要稍加修改即可。不过电子邮件地址user@xxx,com仍然能够通过验证，仔细检查后发现是因为没有对.进行转义导致。于是对它稍做修改：

代码如下
eregi("^[_.0-9a-z-]+@([0-9a-z][0-9a-z-]+.)+[a-z]{2,4}$)


虽然它对用户名的检查要更加宽松一些，但是现在使用它的效果似乎不错。


例1

代码如下
<?php
function is_valid_email($email, $test_mx = false)
{
if(eregi("^([_a-z0-9-]+)(.[_a-z0-9-]+)*@([a-z0-9-]+)(.[a-z0-9-]+)*(.[a-z]{2,4})$", $email))
if($test_mx)
{
list($username, $domain) = split("@", $email);
return getmxrr($domain, $mxrecords);
}
else
return true;
else
return false;
}
?>


例2(自己写的)

代码如下
function is_valid_email_address($email){
$qtext = '[^//x0d//x22//x5c//x80-//xff]';
$dtext = '[^//x0d//x5b-//x5d//x80-//xff]';
$atom = '[^//x00-//x20//x22//x28//x29//x2c//x2e//x3a-//x3c'.
'//x3e//x40//x5b-//x5d//x7f-//xff]+';
$quoted_pair = '//x5c[//x00-//x7f]';
$domain_literal = "//x5b($dtext|$quoted_pair)*//x5d";
$quoted_string = "//x22($qtext|$quoted_pair)*//x22";
$domain_ref = $atom;
$sub_domain = "($domain_ref|$domain_literal)";
$word = "($atom|$quoted_string)";
$domain = "$sub_domain(//x2e$sub_domain)*";
$local_part = "$word(//x2e$word)*";
$addr_spec = "$local_part//x40$domain";
return preg_match("!^$addr_spec$!", $email) ? 1 : 0;
}