|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artur Penttinen 2:5020/400 05 Mar 2001 16:10:54
To : Artem Chuprina
Subject : Re: Проверка на валидность мыла
--------------------------------------------------------------------------------
Artem Chuprina <ran@ran.pp.ru> wrote:
AC> Здравствуй, Artur Penttinen.
AC>
AC> В твоём письме от Mon, 5 Mar 2001 10:51:36 +0000 (UTC) написано:
AC>
>>>> Как проверить на валидность адрес е-маил?
>>>> Отправка письма идет через sendmail
AC>
I>>> Тебе вот это?
I>>> =====================
I>>> sub check_mail {
I>>> my ($mail) = $_[0];
I>>> if ($mail =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||
I>>> $mail !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/)
I>>> { return 0; } return 1; }
AC>
anss>> Мой адрес: niif.spb.su!artur.
AC>
AC> Щазз... artur@niif.spb.su.
это вопрос или пожелание?
anss>> А может и такой -
anss>> artur+usenet@niif.spb.su Или такой - vms::artur@niif.spb.su.
AC>
AC> Что до задачи, то я на всякий случай проверяю, чтобы адрес заканчивался на
AC> @(\w+\.)+\w+ (у нас сервера сами не работают с UUCP-адресацией), а дальше
AC> нехай сам sendmail разбирается. Щас я все брошу и буду RFC822
AC> реализовывать...
Вас кто-то заставляет?
AC> А еще можно распарсить его посредством Mail::Address и проверить непустоту
AC> поля host. Hо я не знаю, насколько Mail::Address честный.
Hа первый взгяд честный, только uucp нотацию не понимает.
wbw,artur
--
Продам квартиру, подготовленную к евроремонту.
--- ifmail v.2.15dev5
* Origin: Sonera Ltd. (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
