nixCraft

chandanperl · #1 (**permalink**) 11-09-2008, 11:03 AM

Dear All,
Can anybody tell me how to validate email address in perl.

Thanks,

monk · #2 (**permalink**) 12-09-2008, 01:46 PM

You cannot do real-time validation of deliverable mail addresses. Most common pattern is as follows:

Code:

while $addr =~ s/\([^( )]*\)//g;

So...

Code:

if ($email_address =~ /^(\w¦\-¦\_¦\.)+\@((\w¦\-¦\_)+\.)+[a-zA-Z]{2,}$/) 
{ 
  print "$email_address is valid"; 
} 
else { 
  print "$email_address is invalid"; 
}

See post:
I Knew How To Validate An Email Address Until I Read The RFC

chandanperl · #3 (**permalink**) 12-09-2008, 03:00 PM

Dear Monk,
It is not validating email id.

#!/usr/bin/perl
$email = "chndan.kumar@yahoo.co.in";

if ($email_address =~ /^(\w\-\_\.)+\@((\w\-\_)+\.)+[a-zA-Z]{2,}$/)
{
print "$email_address is valid";
}
else {
print "$email_address is invalid";
}

nixcraft · #4 (**permalink**) 12-09-2008, 04:50 PM

Quote:

Originally Posted by chandanperl

Dear Monk,
It is not validating email id.

#!/usr/bin/perl
$email = "chndan.kumar@yahoo.co.in";

if ($email_address =~ /^(\w\-\_\.)+\@((\w\-\_)+\.)+[a-zA-Z]{2,}$/)
{
print "$email_address is valid";
}
else {
print "$email_address is invalid";
}

Replace:

Code:

$email = "chndan.kumar@yahoo.co.in";

With

Code:

$email_address  = "chndan.kumar@yahoo.co.in";

You should always use -w option:

Quote:

If something strange has gone wrong with your program and you’re not sure where you should look for help, try the -w switch first. It will often point out exactly where the trouble is.

]

Here is updated code for you:

Code:

#!/usr/bin/perl -w
$email_address = 'chndan.kumar@yahoo.co.in';

if ($email_address =~ /^(\w\-\_\.)+\@((\w\-\_)+\.)+[a-zA-Z]{2,}$/)
{
    print "$email_address is valid";
}
else {
    print "$email_address is invalid";
}

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
convert perl code into binary executable	chandanperl	Coding in General	2	12-01-2010 01:03 PM
how to send email on every saturday in perl	chandanperl	Coding in General	4	22-08-2008 06:25 PM
RHCE Exam Sample Papers	vikas027	CentOS / RHEL / Fedora	2	25-03-2008 05:51 PM
sample scripts for FTP in Unix	jerry	Shell scripting	1	23-06-2006 11:01 PM
RHCE sample questions require	puppen	Linux software	3	13-04-2006 06:36 PM

nixCraft

Email validation in Perl Code Sample

Email validation in Perl Code Sample

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Similar Threads