|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 05 Mar 2001 14:59:43
To : artur@niif.spb.su
Subject : Re: Проверка на валидность мыла
--------------------------------------------------------------------------------
Здравствуй, Artur Penttinen.
В твоём письме от Mon, 5 Mar 2001 10:51:36 +0000 (UTC) написано:
>>> Как проверить на валидность адрес е-маил?
>>> Отправка письма идет через sendmail
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;
I>> }
I>> return 1;
I>> }
anss> Мой адрес: niif.spb.su!artur.
Щазз... artur@niif.spb.su.
anss> А может и такой -
anss> artur+usenet@niif.spb.su Или такой - vms::artur@niif.spb.su.
Что до задачи, то я на всякий случай проверяю, чтобы адрес заканчивался на
@(\w+\.)+\w+ (у нас сервера сами не работают с UUCP-адресацией), а дальше
нехай сам sendmail разбирается. Щас я все брошу и буду RFC822 реализовывать...
А еще можно распарсить его посредством Mail::Address и проверить непустоту
поля host. Hо я не знаю, насколько Mail::Address честный.
--
Artem Chuprina E-mail: ran@ran.pp.ru
Programmer FIDO: 2:5020/371.32
Memonet Ltd. Phone: +7-095-284-1356
--- ifmail v.2.15dev5
* Origin: NTV Internet (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
