ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : InSAn 2:5020/400 05 Mar 2001 11:34:03
To : All
Subject : Re: Проверка на валидность мыла
--------------------------------------------------------------------------------
Stanislav Los <staslos@mail.cnt.ru> сообщил в новостях
следующее:newscache$n6jo9g$tuc$1@news.lainer.net...
> Как проверить на валидность адрес е-маил?
> Отправка письма идет через sendmail
Тебе вот это?
=====================
sub check_mail {
my ($mail) = $_[0];
if ($mail =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ ||
$mail !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) {
return 0;
}
return 1;
}
=====================
- ---
Best Regards, InSAn (admin@proext.com)
http://adv.proext.com - Магазин сетевой рекламы
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.Ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
