Help with email validation string

[Bill H]

I have been using the following small routine to validate that an email
address is properly formatted and it works good with most email
addresses, but if the email address has more than 3 letters in the tld
(ie .info vs .com) it fails. Can someone tell me how to modify this to
make it work for more than 3 letters in the tld?

sub check_email
{
$email = $_[0];
if ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || $email !~
/^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/)
{
return 0;
}
else
{
return 1;
}
}

Thank you,

Bill H

P.S. I did not write this routine

 

[Josef Moellers]

I have been using the following small routine to validate that an email
address is properly formatted and it works good with most email
addresses, but if the email address has more than 3 letters in the tld
(ie .info vs .com) it fails. Can someone tell me how to modify this to
make it work for more than 3 letters in the tld?

sub check_email
{
$email = $_[0];
if ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || $email !~
/^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/)
{
return 0;
}
else
{
return 1;
}
}

Try changing the "2,3" to "2,4" iin the second re to extend the range to
4 letters.

P.S. I did not write this routine

I don't understand it either B-{)

 

[Paul Lalli]

I have been using the following small routine to validate that an email
address is properly formatted

A "small" routine cannot validate that an email address is properly
formatted.

and it works good with most email
addresses,

So people an address that doesn't conform to the one you specify should
be disallowed from using whatever service you're writing?

P.S. I did not write this routine

So why not use another subroutine you didn't write, that actually does
the job correctly?

http://search.cpan.org/~maurice/Email-Valid-0.15/Valid.pm

Paul Lalli

 

[Bill H]

I have been using the following small routine to validate that an email
address is properly formatted and it works good with most email
addresses, but if the email address has more than 3 letters in the tld
(ie .info vs .com) it fails. Can someone tell me how to modify this to
make it work for more than 3 letters in the tld?

sub check_email
{
$email = $_[0];
if ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || $email !~
/^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/)
{
return 0;
}
else
{
return 1;
}
}

Try changing the "2,3" to "2,4" iin the second re to extend the range to
4 letters.

Thanks Josef - That worked fine.

Bill H