php實作RFC相容的電子郵件地址驗證

/*
版權所有2009 Dominic Sayers
(dominic_sayers@hotmail.com)
(http://www.dominicsayers.com)
此來源文件受通用公共歸屬授權版本1.0 (CPAL) 授權的約束。
授權條款可透過萬維網取得：http://www.opensource.org/licenses/cpal_1.0
*/
function is_email ($email, $checkDNS = false) {
 //檢查$email 是否為有效位址
 // (http://tools.ietf.org/html/rfc3696)
 // (http://tools.ietf.org/ html/rfc5322#section-3.4 .1)
 // (http://tools.ietf.org/html/rfc5321#section-4.1.3)
 // (http://tools.ietf. org/html/rfc4291#section -2.2)
 // (http://tools.ietf.org/html/rfc1123#section-2.1)

 // 現代電子郵件地址由「本地」組成部分」與
 // 透過at 符號（「@」）分隔的「網域部分」（完全限定的網域名稱）。 $index = strrpos($email,'@');
 if ($index === false) 回傳false; // 沒有at 符號
 if ($index === 0) return false; // 沒有本地部分
 if ($index > 64) return false; // 局部部分太長
; $localPart = substr($email, 0, $index);
 $domain = substr($email, $index + 1);
 $domainLength = strlen($domain);

 if ($domainLength === 0) return false ; // 沒有域部分
 if ($domainLength > 255) return false; // 域部分太長
 // 讓我們檢查本地部分的RFC 合規性...
 //
 // 句點（「.」）可能...出現，但不能用於開始或結束
 //局部部分，也不能出現兩個或多個連續的句點。
 // (http://tools.ietf.org/html/rfc3696#section-3)
 if (preg_match('/^\.|\.\.|\.$/', $localPart ) > 0) 回傳假； // 點放在錯誤的位置
; // 除了
 // at 符號（「@」）、反斜線、雙引號、逗號或方括號以外的任何ASCII 圖形（列印）字元都可以
 // 出現而無需引號。  如果任何排除字元清單
 // 要出現，則必須將它們加引號
 // (http://tools.ietf.org/html/rfc3696#section-3)
 if ( preg_match( '/^"(?:.)*"$/', $localPart) > 0) {
 // 局部部分是引號的字串
 if (preg_match('/(?:.) + [^\\]"(?:.)+/', $localPart) > 0) return false; // 帶引號的字串內未轉義的引號字元
 } else {
 if (preg_match ('/[ @\[\]\\",]/', $localPart) > 0)
 // 檢查所有排除的字元是否被轉義
 $stripped = preg_replace('/\\[ @\[\]\ \",]/', '', $localPart);
 if (preg_match('/[ @\[\]\\",]/', $stripped) > 0) return false; // 不帶引號的排除字元
 }
 // 現在讓我們檢查網域部分...
 // 網域也可以替換為方括號內的IP位址
 // (http://tools.ietf.org/html/rfc3696#section-3)
 // (http:// tools.ietf.org/html/ rfc5321#section-4.1.3)
 // (http://tools.ietf.org/html/rfc4291#section-2.2)
 if (preg_match('/^ \[(.)+]$ /', $domain) === 1) {
 // 這是一個位址文字
 $addressLiteral = substr($domain, 1, $domainLength - 2);
 $matchesIP = array() ;

 // 從位址文字結尾擷取IPv4 部分（如果有的話）
 if (preg_match('/\b(?:(?:25[0-5]|2) [0 -4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][ 0- 9]|[01]?[0-9][0-9]?)$/', $addressLiteral, $matchesIP) > 0) {
 $index = strrpos($addressLiteral, $matchesIP[ 0]) ;

 if ($index === 0) {
 // 除了有效的IPv4 位址之外什麼都沒有，所以...
 return true;
}else {
 // 假設嘗試使用混合位址(IPv6 + IPv4)
 if ($addressLiteral[$index - 1] !== ':') return false; // IPv4 位址前面的字元必須是' :'
 if (substr($addressLiteral, 0, 5) !== 'IPv6:') return false; // RFC5321 第4.1.3 節
; $IPv6 = substr ($addressLiteral, 5, ($index ===7) ? 2 : $index - 6);
 $groupMax = 6;
 }
 } else {
 // 必須是純IPv6的嘗試
 if (substr($addressLiteral, 0, 5) !== 'IPv6:') return false; // RFC5321 第4.1.3 節
 $IPv6 = substr($addressLiteral, 5);
 $groupMax = 8;
 }
 $groupCount = preg_match_all('/^[0-9a-fA-F]{0,4}|\:[0-9a -fA-F]{0,4}|(.)/', $IPv6, $匹配IP）；
 $index = strpos($IPv6,'::');
 if ($index === false) {
 // 我們需要正確的組數
 if ($groupCount !== $groupMax) return false; // RFC5321 第4.1.3 節
 } else {
 if ($index !== strrpos($IPv6,'::')) return false; // 多'::'
 $groupMax = ($index === 0 || $index === (strlen($IPv6) - 2)) ? $groupMax : $groupMax - 1;
 if ($groupCount > $groupMax) return false; // 位址
 中的IPv6 群組過多}
 // 檢查不符的字元
 array_multisort($matchesIP[1], SORT_DESC);
 if ($matchesIP[1][0] !== '' ) return false; // 位址中存在非法字元
; // 這是一個有效的IPv6 位址，所以...
 return true;
 } else {
 // 這是一個網域名稱...
 // RFC-952 中指定了合法網際網路主機名稱的語法
 // 主機名稱語法的一個面向在此變更：
 // 對第一個字元的限制放寬以允許
 // 字母或數字。
 // (http://tools.ietf.org/html/rfc1123#section-2.1)
 //
 // NB RFC 1123 更新了RFC 1035，但目前從閱讀RFC 來看這一點並不明顯1035.
 //
 // 最常見的應用程序，包括電子郵件和Web，通常不允許...轉義字符串
 // (http://tools. ietf.org/html/rfc3696 #section-2)
 //
 // 字母字元、數字和連字符集之外的字元不得出現在網域名稱中
 // SMTP 用戶端或伺服器的標籤
 // ( http://tools.ietf.org/html/rfc5321#section-4.1.2)
 //
 // RFC5321 禁止在網域中使用尾隨點用於SMTP
 // (http://tools.ietf.org/html/rfc5321#section-4.1.2)
 $matches = array();
 $groupCount = preg_match_all('/(?:[0- 9a-zA-Z][0-9a-zA-Z-]{0,61}[0-9a-zA-Z]|[a- zA-Z])(?:\.|$)|(. )/', $domain, $matches);
 $level = count($matches[0]);
 if ($level == 1) 回傳false; // 郵件主機不能是TLD
; $TLD = $matches[0][$level - 1];
 if (substr($TLD, strlen($TLD) - 1, 1) === '.') return false; // TLD 不能以點
 結尾if (preg_match('/^[0-9]+$/', $TLD) > 0) return false; // TLD 不能是全數字
 // 檢查不符的字元
 array_multisort($matches[1], SORT_DESC);
 if ($matches[1][0] !== '') return false; // 域中存在非法字符，或標籤長度超過63 個字符
; // 檢查DNS？
 if ($checkDNS && function_exists('checkdnsrr')) {
 if (!(checkdnsrr($domain, 'A') || checkdnsrr($domain, 'MX'))) {
 return錯誤的; // 域其實不存在
 }
 }
 // 排除所有其他因素，剩下的一定是事實。
 // （福爾摩斯、四簽名）
 回傳 true;
 }
}
function unitTest ($email, $reason = '') {
 $expected = ($reason === '') ?真：假；
 $valid = is_email ($email);
 $not = ($valid) ? '' ： ' 不是';
 $unexpected = ($valid !== $expected) ? ' 這齣乎意料！ ' : '';
 $reason = ($reason === '') ? "" : " 原因：$reason";

 return "地址$email 無效。
// 電子郵件驗證器測試案例（Dominic Sayers，2009 年1 月）