复制代码代码如下所示：
功能is_valid_email_address（$电子邮件）{
美元={ ^ Qtext / / / / x0d X22 / / / / x5c X80 / / xff }；
爸爸={美元^ / / / / x5b x0d / / / / x5d X80 / / xff }；
原子={美元^ / / / 设备 / / / X20 X22 / / / / x28 x29 / / / / x2e X2C / / / / x3a x3c。
/ / / / X40 x3e / / / / x5b x5d / / / / x7f xff } +；
quoted_pair美元= / / / /设备x5c { / / x7f }；
domain_literal美元= / / x5b（爸爸|美元美元quoted_pair）* / / x5d ；
quoted_string美元= / / X22（$ Qtext | quoted_pair美元）* / / X22；
domain_ref美元= $原子；
sub_domain美元=（$ domain_ref | domain_literal美元）；
$字=（$原子| quoted_string美元）；
$domain =sub_domain美元（ / / x2e sub_domain美元）*；
local_part美元= 字（ / /美元美元x2e字）*；
addr_spec美元= / / X40 local_part美元美元域；
返回preg_match（！^ addr_spec美元美元！！
}