|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Konstantin Sorokin 2:5020/400 03 Sep 2002 22:52:38 To : Igor Homyakov Subject : Re: simple mail address filter -------------------------------------------------------------------------------- Igor Homyakov <homyakov@ramax.spb.ru> wrote: > Привет ! > > необходим regexp, для простой проверки синтаксической корректности адреса > получателя в поле To: > для того чтобы не проходили письма типа > To: undisclosed-recipients > > причем проверка должны быть негативной, то есть совпадение > означает что email HЕ правильный. > > в моём варианте это было так: > /^To:.*[^\s]+(?!@([^\s]\.)+[^\s]+/ > > Есть другие мнения ? > посмотрите сюда: http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/ckaddr.gz -- Konstantin Sorokin --- ifmail v.2.15dev5 * Origin: Demos online service (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/65777d9274c0.html, оценка из 5, голосов 10
|