validate an email address ?

[Anonymous Monk]

I'm trying to validate an emailaddress contained in $emailaddress.

I am trying to make sure that it contains at least @(text or numbers).(text or numbers)

I have been trying the following without success

$emailcheck=0;
$_=$emailaddress;
if ( !/\@([a-z][A-Z][0-9]\.+)([0-9][a-z][A-Z]+)/ ) { $emailcheck++; }

Does anyone have any ideas ?

Edit: 2001-03-03 by neshura

[arturo]

If you want decent validation, try Email::Valid.

If you want your code to be readable, please wrap it in <code> tags.

Now, to the immediate problem: is this cut and pasted? Your regex (as posted) is attempting to find things that *DON'T* match your pattern, i.e. $emailcheck will only be incremented if the address isn't in the format you've specified. While we're at it, here's the syntax for checking $emailaddress directly, with a little of Perl's syntactic neatness thrown in:

$emailcheck++ if $emailaddress =~ /@[a-z0-9]+\.[a-z0-9]+/i;

HTH

Philosophy can be made out of anything. Or less -- Jerry A. Fodor

[boo_radley]

there's also RFC822 if email valid doesn't work.

And doesn't japhy's OGRE have a "real" 822 validating regexp for a test case? a regexp that's, oh, 500 lines long?

[rpc]

The version of Email::Valid on my machine (0.12) uses the RFC822 pattern.

[chipmunk]

Here's the FAQ on this topic. First I searched for 'email address', which didn't find it. Then I searched for 'mail address', which worked.

How do I check a valid mail address?

[batmonk]

Furthermore, Chapter 9 of CGI Programming with Perl, 2nd Edition discusses this in-depth. It also provides code sample.

[Gloom]

if( $emailaddress =~ m!\@[.a-zA-Z0-9]+\.[a-zA-Z0-9]+$! ) {
$emailcheck++
}


But it's too simple to really check an email address..

Update

I only tried to answer simply to the question and adviced him to look for a more serious solution
___________________
Hope this helps

[merlyn]

This is wrong, for all the normal reasons. {grin} Please search the wealth of info available on this topic already, or even the other messages likely to pop up on this thread alone!

-- Randal L. Schwartz, Perl hacker

[InfiniteSilence]

Amen.