PHP は RFC 準拠の電子メール アドレス検証を実装します

/*
Copyright 2009 Dominic Sayers
(dominic_sayers@hotmail.com)
(http://www.dominicsayers.com)
このソース ファイルは Common Public Attribution License バージョンの対象です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)

 // 現在の電子メール アドレスは、
 から区切られた「ローカル部分」で構成されます。 // 「ドメイン部分」 (完全修飾ドメイン名) は、アットマーク （"@"）。
 // (http://tools.ietf.org/html/rfc3696#section-3)
 $index = strrpos($email,'@');
    if ($index === false) は false を返します。    // アットマークはありません
 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) は false を返します。    // ドメイン部分はありません
 if ($domainLength > 255) return false;    // ドメイン部分が長すぎます
    // RFC に準拠しているかどうかローカル部分を確認してみましょう...
 //
 // ピリオド (".") は...表示される場合がありますが、
 // ローカル部分の開始または終了に使用することはできません。または複数の連続するピリオドが表示されます。
 // (http://tools.ietf.org/html/rfc3696#section-3)
 if (preg_match('/^\.|\.\.|\.$/', $localPart) > 0 ) false を返します。    // ドットが間違った場所にあります
    //
 // アットマーク ("@")、バックスラッシュ、二重引用符、カンマ、または角括弧以外の ASCII グラフィック (印刷) 文字は、
 // 引用符なしで使用できます。  除外される文字のリスト
 // が出現する場合は、引用符で囲む必要があります
 // (http://tools.ietf.org/html/rfc3696#section-3)
 if (preg_match('/^" (?:.)*"$/', $localPart) > 0) {
 // ローカル部分は引用符で囲まれた文字列
 if (preg_match('/(?:.)+[^\\]"(?: .)+/', $localPart) > return false // 引用符付き文字列内のエスケープされていない引用符
 } else {
 if (preg_match('/[ @\[\]\\",]/', $ localPart) > 0)
 // 除外された文字がすべてエスケープされていることを確認します
 $stripped = preg_replace('/\\[ @\[\]\\",]/', '', $localPart);
 if (preg_match ('/[ @\[\]\\",]/', $tripped) > 0) 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) は false を返します。    // アドレス内の IPv6 グループが多すぎます
 }
        // 一致しない文字をチェック
 array_multisort($matchesIP[1], SORT_DESC);
 if ($matchesIP[1][0] !== '') は false を返します。    // アドレスに不正な文字があります
        // これは有効な IPv6 アドレスなので...
 return true;
 } else {
 // これはドメイン名です...
        // 正当なインターネット ホスト名の構文は RFC-952 で指定されました
 // ホスト名の構文の 1 つの側面が変更されました:
 // 最初の文字の制限が緩和され、
 // 文字または桁。
 // (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) === '.') は false を返します。    // TLD はドットで終わることはできません
 if (preg_match('/^[0-9]+$/', $TLD) > 0) return false;    // TLD をすべて数値にすることはできません
        // 一致しない文字をチェック
 array_multisort($matches[1], SORT_DESC);
 if ($matches[1][0] !== '') は false を返します。    // ドメイン内の不正な文字、または 63 文字を超えるラベル
        // DNSをチェックしますか?
 if ($checkDNS && function_exists('checkdnsrr')) {
 if (!(checkdnsrr($domain, 'A') || checkdnsrr($domain, 'MX'))) {
 false を返します。    // ドメインは実際には存在しません
 }
 }
        // 他の要素をすべて削除し、残ったものが真実でなければなりません。
 // (シャーロック ホームズ、The Sign of Four)
 return true;
 }
}
関数unitTest ($email, $reason = '') {
 $expected = ($reason === '') ?真/偽;
 $valid = is_email($email);
 $not = ($valid) ? '' ： ' ない';
 $unexpected = ($valid !== $expected) ? 「 これは予想外でした!」 : '';
 $reason = ($reason === '') ? "" : " 理由: $reason";

 return "アドレス $email は $無効です。$unexpected$reasonn";
}
// 電子メール検証テスト ケース (Dominic Sayers、2009 年 1 月)
// 有効なアドレス
echo UnitTest('first.last@example.com');
echounitTest('1234567890123456789012345678901234567890123456789012345678901234@example.com');
echounitTest('"最初と最後"@example.com');
echounitTest('"first\"last"@example.com'); // これが有効かどうか完全にはわかりません
echounitTest('first\@last@example.com');
echounitTest(' "first@last"@example.com');
echounitTest('first\\last@example.com'); // これは一重引用符の文字列でもエスケープされるため、「first\last」をテストしていることに注意してください。 @example.com
echo UnitTest('first.last@x23456789.x23456789.x23456789.x23456789.x23456789.x23456789.x23456789.x23456789.x23456789.x23456789.x 23456789.x23456789.x23456789.x23456789.
x23456789.x23456789.x23456789.x23456789。 x23456789.x23456789.x23456789.x23456789.x23456789.x23456789.x23456789.x2345');
echounitTest('first.last@[12.34.56.78]'); first.last@[IPv6:::12.34 .56.78]');
エコーユニットテスト('first.last@[IPv6:1111:2222:3333::4444:12.34.56.78]');
エコーユニットテスト('first.last@[IPv6:1111:2222: 3333:4444:5555:6666:12.34.56.78]');
echounitTest('first.last@[IPv6:::1111:2222:3333:4444:5555:6666]'); .last@[IPv6:1111:2222:3333::4444:5555:6666]');
echounitTest('first.last@[IPv6:1111:2222:3333:4444:5555:6666::]');
echounitTest('first.last@[IPv6:1111:2222:3333:4444:5555:6666:7777:8888]');
echounitTest('first.last@x23456789012345678901234567890123456789012345678901234567890123.example.com');
echounitTest('first.last@1xample.com');
echounitTest('first.last@123.example.com');
// 無効なアドレス
echounitTest('first.last', "No @");
echounitTest('@example.com', "ローカル部分がありません");
echo UnitTest('12345678901234567890123456789012345678901234567890123456789012345@example.com', "64 文字を超えるローカル部分");
echounitTest('.first.last@example.com', "ローカル部分はドットで始まります");
echounitTest('first.last.@example.com', "ローカル部分はドットで終わります");
echounitTest('first..last@example.com', "ローカル部分に連続したドットがあります");
echo UnitTest('"first"last"@example.com', "ローカル部分にはエスケープされていない除外文字が含まれています");
echo UnitTest('first\\@last@example.com', "ローカル部分にはエスケープされていない除外文字が含まれています" );
echo unitTest('first.last@', "ドメインなし"); 9.x23456789.x23456789.x23456789。 x23456789.x23456789.x23456789.
x23456789.x23456789.x23456789.x23456789.x23456789.x23456789.x23456789.x23456789.x2345678 9.x23456789.x23456789.x23456', "ドメインが 255 文字を超えています");
echounitTest('first.last@[ .12.34.56.78]', "IPv4 アドレスの前に付けられる文字は ':' のみです");
echo UnitTest('first.last@[12.34.56.789]', "IPv4 として解釈できないため、IPv6 タグは欠落しています");
echo UnitTest('first.last@[::12.34.56.78]', "IPv6 タグが欠落しています");
echo UnitTest('first.last@[IPv5:::12.34.56.78]', "IPv6 タグが間違っています");
echounitTest('first.last@[IPv6:1111:2222:3333::4444:5555:12.34.56.78]', "IPv6 グループが多すぎます (最大 4 つ)"); echounitTest('first.last@[IPv6:1111:2222:3333:4444:5555:12.34.56.78]', "IPv6 グループが不足しています");
echounitTest('first.last@[IPv6:1111:2222:3333:4444:5555:6666:7777:12.34.56.78]', "IPv6 グループが多すぎます (最大 6 つ)");
echounitTest('first.last@[IPv6:1111:2222:3333:4444:5555:6666:7777]', "IPv6 グループが不足しています");
echounitTest('first.last@[IPv6:1111:2222:3333:4444:5555:6666:7777:8888:9999]', "IPv6 グループが多すぎます (最大 8 つ)");
echounitTest('first.last@[IPv6:1111:2222::3333::4444:5555:6666]', "「::」が多すぎます (なしまたは 1 つ)");
echounitTest('first.last@[IPv6:1111:2222:3333::4444:5555:6666:7777]', "IPv6 グループが多すぎます (最大 6 つ)");
echounitTest('first.last@[IPv6:1111:2222:333x::4444:5555]', "x は IPv6 アドレスでは無効です");
echounitTest('first.last@[IPv6:1111:2222:33333::4444:5555]', "33333 は IPv6 アドレスの有効なグループではありません");
echounitTest('first.last@example.123', "TLD をすべて数字にすることはできません");
echounitTest('first.last@com', "メールホストは 2 番目以下のレベルである必要があります");
echounitTest('first.last@-xample.com', "ラベルをハイフンで始めることはできません");
echounitTest('first.last@exampl-.com', "ラベルはハイフンで終わることはできません");
echo UnitTest('first.last@x234567890123456789012345678901234567890123456789012345678901234.example.com', "ラベルは 63 オクテットを超えることはできません");
// RFC3696 のテスト ケース (2004 年 2 月、http://tools.ietf.org/html/rfc3696#section-3)
echo UnitTest('Abc\@def@example.com');
echounitTest('Fred\ Bloggs@example.com');
echounitTest('Joe.\\Blow@example.com');
echounitTest('"Abc@def"@example.com');
echounitTest('"Fred Bloggs"@example.com');
echounitTest('user+mailbox@example.com');
echounitTest('customer/Department=shipping@example.com');
echounitTest('$A12345@example.com');
echounitTest('!def!xyz%abc@example.com');
echo UnitTest('_somename@example.com');
// Doug Lovell のテスト ケース (LinuxJournal、2007 年 6 月、http://www.linuxjournal.com/article/9585)
echounitTest("dclo@us.ibm.com");
echounitTest("abc\@def@example.com");
echounitTest("abc\\@example.com");
echounitTest("Fred\ Bloggs@example.com");
echounitTest("Joe.\\Blow@example.com");
echounitTest(""Abc@def"@example.com");
echounitTest(""Fred Bloggs"@example.com");
echounitTest("customer/Department=shipping@example.com");
echounitTest("$A12345@example.com");
echounitTest("!def!xyz%abc@example.com");
echounitTest("_somename@example.com");
echounitTest("user+mailbox@example.com");
echounitTest("peter.piper@example.com");
echo UnitTest("Doug\ \"Ace\"\ Lovell@example.com");
echounitTest(""Doug \"Ace\" L."@example.com");
echo UnitTest("abc@def@example.com", "Doug Lovell 氏は、これは失敗するはずだと言っています");
echounitTest("abc\\@def@example.com", "Doug Lovell 氏は、これは失敗するはずだと言っています");
echounitTest("abc\@example.com", "Doug Lovell 氏は、これは失敗するはずだと言っています");
echounitTest("@example.com", "Doug Lovell 氏は、これは失敗するはずだと言っています");
echounitTest("doug@", "Doug Lovell はこれは失敗するはずだと言います");
echo UnitTest(""qu@example.com", "Doug Lovell 氏はこれは失敗するはずだと言います");
echo UnitTest("ote"@example.com", "Doug Lovell 氏はこれは失敗するはずだと言います");
echounitTest(".dot@example.com", "Doug Lovell 氏は、これは失敗するはずだと言っています");
echo UnitTest("dot.@example.com", "Doug Lovell 氏は、これは失敗するはずだと言っています");
echo UnitTest("two..dot@example.com", "Doug Lovell 氏は、これは失敗するはずだと言っています");
echounitTest(""Doug "Ace" L."@example.com", "Doug Lovell はこれは失敗するはずと言っています");
echounitTest("Doug\ \"Ace\"\ L\.@example.com", "Doug Lovell はこれは失敗するはずと言っています");
echounitTest("hello world@example.com", "Doug Lovell 氏は、これは失敗するはずだと言っています");
echounitTest("gatsby@f.sc.ot.t.f.i.tzg.era.l.d.", "Doug Lovell はこれは失敗するはずと言っています");
?>