Проверка корректности формата SMTP-адреса email

[gl00mie]

Пару-тройку раз столкнувшись с проблемами, связанными с тем, что в настройках был указан некорректный email-адрес, решил прикрутить какую-нить проверку хотя бы корректности его формата, чтобы по возможности отфильтровывать явный мусор. В результате появилась парочка вспомогательных методов, которые, надеюсь, пригодятся не только мне.
Это добавлено в макрос SysMailer:

// регулярное выражение для проверки корректности SMTP-адресов
// подсмотрено тут: codeproject.com/Articles/5189/Effective-Email-Address-Validation
// NB! тут специально не использованы ограничители начала и конца строки (^ $)
#localmacro.EmailValidationPattern
    @'([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)'
#endmacro

А это пара новых методов в классе SysMailer - собственно проверка корректности формата email-адреса:

// проверяет email на соответствие нужному формату
#localmacro.Pattern
    @'^\s*' + #EmailValidationPattern + @'\s*$'
#endmacro
public static client server boolean isValidEmail(Email _email)
{
    boolean ret;
    ;
    if (strlrtrim(_email) != '')
    {
        new InteropPermission(InteropKind::ClrInterop).assert();
        ret = System.Text.RegularExpressions.Regex::IsMatch(_email, #Pattern);
    }
    return ret;
}

и вспомогательный метод для "выкусывания" email-адреса, если на входе подается строка вида "John Doe <john@somewhere.com>":

/// <summary>
///     пытается выкинуть из адреса отправителя имя и <>, оставив собственно SMTP-адрес
/// </summary>
/// <param name="_emailFrom">
///     email предположительно в формате "Name <email>"
/// </param>
/// <returns>
///     email без лишней шелухи или же исходную строку, если параметр не подойдет под шаблон
/// </returns>
/// <remarks>
///     в качестве параметра для SMTP-команды MAIL FROM: годится ТОЛЬКО email без всяких там угловых скобок и имен
/// </remarks>
#localmacro.SearchPattern
    @'^.+\s<(' + #EmailValidationPattern + @')>$'
#endmacro
#define.ReplacementPattern('$1')
public static client server Email tryRemoveNameFromEmail(Email _emailFrom)
{
    System.Text.RegularExpressions.MatchCollection  matches;
    System.Text.RegularExpressions.Match            oneMatch;
    Counter                                         nMatches;
    Email                                           ret = strlrtrim(_emailFrom);
    ;
    if (ret)
    {
        new InteropPermission(InteropKind::ClrInterop).assert();
        matches = System.Text.RegularExpressions.Regex::Matches(ret, #SearchPattern);
        nMatches = matches.get_Count();
        if (nMatches > 0)
        {
            // резать к чертовой матери! не дожидаясь перитонитов...
            oneMatch = matches.get_Item(0);
            ret = oneMatch.Result(#ReplacementPattern);
        }
        else
        {
            ret = _emailFrom;
        }
    }
    return ret;
}

[leva]

Цитата:

#localmacro.EmailValidationPattern
    @'([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)'
#endmacro

Какая-то странная регулярка. Явно выделена возможность указания сервера по ip-адресу, но мало того, что никак не проверяется, что число при этом не должно быть больше 255, но к тому же это абсолютно бесполезно сделано, так как вариант [a-zA-Z0-9\-]+ включает их все. Не проверяется, что адрес не может начинаться и заканчиваться точкой. Странные первая "[" после "@" и последняя "]". Домен верхнего уровня может быть больше 4 символов (например travel, museum).

Для простых проверок лучше такой

@'[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,10})'

Ещё есть вариант в \Classes\SysEmailDistributor\validateEmail, но по-моему он ещё хуже.

Все они абсолютной точности не дадут, но большинство ошибок отсекают. Для проверок по-точнее есть RFC822-совместимый (не для слабонервных). Можно ещё домены верхнего уровня ограничить известными, короче, чем более совершенна проверка, тем монструозней получится регэкс.

В Ax3 реализация регулярных выражений очень глючная, но такой вариант кажется работает верно (здесь < и > можно убрать, если нужно соответствие не всей строки)

@'<[0-9a-zA-Z\-_]+[0-9a-zA-Z\-_\.]*[^.]@[0-9a-zA-Z\-]+[0-9a-zA-Z\-\.]*\.[a-zA-Z][a-zA-Z]+>'

P.S. Для поддержки кириллицы нужно немного доработать.
P.P.S. Для отладки регулярок рекомендую онлайн тулзу debuggex.com.