Validating an Email Address

[rag84dec]

Hi
can anyone help me in writing this

here is the code i wrote which is not woring properly

print "Enter the E-Mail address\n";
$_=<>;

if($_[0] !~ m\[0-9]\)
{
	if(/[a-zA-Z[\.]_]+@[a-zA-Z]+.[a-zA-Z]\.[a-zA-Z]/)
	{
		print "its a valid Address\n";
	}
	else
	{
		print "Sorry,Its not a valid address\n";
	}
}
else
{
	print "Sorry,Its not a valid address\n";
}

thanks

[KevinADC]

this looks wrong:

[a-zA-Z[\.]_]

maybe you meant:

[a-zA-Z._]

[miller]

Hi rag84dec,

As Kevin pointed out, your code is full of syntax errors. Quickly editting out the obvious ones gives me this:

print "Enter the E-Mail address\n";
$_ = <>;
chomp;
 
if(m/\d/) {
	print "Sorry,Its not a valid address\n";
} elsif(/[a-zA-Z._]+\@[a-zA-Z]+.[a-zA-Z]\.[a-zA-Z]/) {
	print "its a valid Address\n";
} else {
	print "Sorry,Its not a valid address\n";
}

However, that only touches on your problems, as your logic and regex's appear to be flawed.

I would advise you and anyone to use one of the many Email Validating modules on cpan instead of creating your own logic. Here's one of the first ones that came up in my search, and I'm certain that it will fit your purposes:

cpan Email::Valid

- Miller

[KevinADC]

Ditto Miller. ;)