Welcome to the Monastery | |
PerlMonks |
Re: Re: Email Validationby $code or die (Deacon) |
on Nov 14, 2001 at 22:55 UTC ( [id://125386]=note: print w/replies, xml ) | Need Help?? |
This regex fails for many valid addresses and it will pass on some invalid ones. Try:
This checks to make sure it has a @, has text before the @, text after the @, and a . after the @, and checks to make sure it is only alphanumeric charactors and no spacesThis is not the correct definition of a valid email address. Check RFC822 for the full specification. For me, the best method is to try sending an email to the address. If you don't want to do that then I'd follow the advice of the other posters, who suggest Mastering Regular Expressions, Email::Valid / RFC::RFC822::Address / Mail::Address or others. Update: I would also look at the FAQ: How do I check a valid mail address? Simon Flack ($code or die) $,=reverse'"ro_';s,$,\$,;s,$,lc ref sub{},e;$, =~y'_"' ';eval"die";print $_,lc substr$@,0,3;
In Section
Seekers of Perl Wisdom
|
|