ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artur Penttinen 2:5020/400 05 Mar 2001 14:51:36
To : "InSAn"
Subject : Re: Проверка на валидность мыла
--------------------------------------------------------------------------------
InSAn <news@insan.al.ru> wrote:
I>
I> Stanislav Los <staslos@mail.cnt.ru> сообщил в новостях
I> следующее:newscache$n6jo9g$tuc$1@news.lainer.net...
>> Как проверить на валидность адрес е-маил?
>> Отправка письма идет через sendmail
I>
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> }
Мой адрес: niif.spb.su!artur. А может и такой - artur+usenet@niif.spb.su
Или такой - vms::artur@niif.spb.su.
wbw,artur
--
Из овощей я больше всего люблю пельмени...
--- ifmail v.2.15dev5
* Origin: Sonera Ltd. (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Проверка на валидность мыла 