|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Paul Kulchenko 2:5020/400 30 Mar 2000 20:30:55
To : All
Subject : Re: Validate e-mail
--------------------------------------------------------------------------------
Hi, Roman!
Roman Medvedev wrote in message <954440000@p19.f8.n5004.z2.FidoNet.ftn>...
> Hello, All!
>
>Как пpовеpить е-мейл на пpостую допустимость символов?
>То есть, адpес может содеpжать только символы
>qwertyuiopasdfghjklzxcvbnm1234567890!_\-\.\@
>Как опpеделить наличие "лишних" символов?
>Должно быть какое-то коpоткое и изящное pешение. :)
Hе самое короткое, но на правильность проверяет. Правда, перестанет работать
после того, как разрешат длинные домены первого уровня.
sub is_email_valid {
$_[0] !~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/o &&
$_[0] =~ /^\S+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/o;
}
Вместо \S+ можно добавить символы по вкусу.
Best wishes, Paul.
--- ifmail v.2.15dev4
* Origin: Rostelecom/Internet Centre (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
