LINUX ADMINISTRATION NOTES & CODE SNIPPETS

Match or validate an email address with perl regex ( regular expression )

This perl script shows how to validate an email address using perl and regular expression ( regex ).

#!/usr/bin/perl

@email = (”email\@address”,”email\@address.email”,
“\@address.email”,”address.email\@email”, “validate\@email.address”);

foreach (@email) {
if (/^[A-z0-9_\-]+[@][A-z0-9_\-]+([.][A-z0-9_\-]+)+[A-z]{2,4}$/) {
print “$_\n”;
}
}

Result:

email@address.email
validate@email.address

Filed under: Linux, Perl, Programming