On Thu, 24 Jun 2004 13:29:12 +0600 "LRMK" <[EMAIL PROTECTED]> wrote:
> I am using following code to validate e-mail addresses
>
> if ($mail =~ m/^(\w+(\.|-))*\w+\@(\w+(\.|-)*)+\w+$/){
> valid
> }else{
> invalid
> }
A comprehensive regex for checking e-mail addresses may be found at;
http://www.foad.org/~abigail/Perl/url3.regex
--
Owen
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
