Perl

Perl RSS

regex not validating email

Thread Solved

•

Join Date: Nov 2008

Posts: 106

Reputation: sid78669 is an unknown quantity at this point

Solved Threads: 4

sid78669

Offline

Junior Poster

regex not validating email

Feb 10th, 2009

as part of my assignment i'm trying to validate an email address stored in an hash, with the key: 'email' and the value as the data supplied. But the email is not getting validated using reg-ex:

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
if($form_element{'email'} =~ m/^[A-z0-9_\-]+[@][A-z0-9_\-]+([.][A-z0-9_\-]+)+[A-z]{2,4}$/i){
        $values = 0;
        $mail = "InValid!";
} else {
        $mail = "Valid!";
}
if($form_element{'email'} =~ m/^[A-z0-9_\-]+[@][A-z0-9_\-]+([.][A-z0-9_\-]+)+[A-z]{2,4}$/i){
        $values = 0;
        $mail = "InValid!";
} else {
        $mail = "Valid!";
}

Live free.... Die Hard!

•

Join Date: Mar 2006

Posts: 898

Reputation: KevinADC has a spectacular aura about

Solved Threads: 67

KevinADC

Offline

Practically a Posting Shark

Re: regex not validating email

Feb 10th, 2009

 Help with Code Tags 
 Perl Syntax (Toggle Plain Text) 
if($form_element{'email'} =~ m/^[a-zA-Z0-9_\-]+@[a-zA-Z0-9_\-]+([.][a-zA-Z0-9_\-]+)+[a-zA-Z]{2,4}$/i){
        $values = 0;
        $mail = "Valid!";
} else {
        $mail = "InValid!";
}
if($form_element{'email'} =~ m/^[a-zA-Z0-9_\-]+@[a-zA-Z0-9_\-]+([.][a-zA-Z0-9_\-]+)+[a-zA-Z]{2,4}$/i){
        $values = 0;
        $mail = "Valid!";
} else {
        $mail = "InValid!";
}