Snippets

Home / Snippets / Simple email validation

Simple email validation

Snippet Menu

snippet |

revisions |

comments | Related Snippets

related |

Add to Favorites | Email

download | Print

print | Blog It

blog it

Thu. Aug. 31st, 2006 7:58 AM

1 of 1

ctiggerf

Email | Perl | RegExp | Validate

3 comments

Simple function to check for a valid email address. Makes sure the @ and a . are in the right place. There is most likely a perl package on CPAN that would be more extensive, but this happens to work for my uses.

sub validate_email {

  my ($email)=@_;

  if($email =~ m/^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-])+\.)+([a-zA-Z0-9]{2,4})+$/s) {

    return 1

  } else {

    return 0;   

  }     

}