regex not validating email

Expand Post »

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:

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!";
}

Similar Threads

Verify Email Address in ASP.NET

sid78669

Reputation Points: 10

Solved Threads: 8

Junior Poster

Offline

195 posts
since Nov 2008

Permalink

Feb 10th, 2009

Re: regex not validating email

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!";
}

KevinADC

Reputation Points: 246

Solved Threads: 67

Practically a Posting Shark

Offline

898 posts
since Mar 2006

Permalink

Feb 10th, 2009

Re: regex not validating email

lol!! thanks alot!

sid78669

Reputation Points: 10

Solved Threads: 8

Junior Poster

Offline

195 posts
since Nov 2008

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Perl Forum Timeline: insert text

Next Thread in Perl Forum Timeline: OLE and Office 2007

DaniWeb Message

Cancel Changes

User Name
Password