Snippets

Home / Snippets / simple email address to domain check

simple email address to domain check

Snippet Menu

snippet |

revisions |

comments | Related Snippets

related |

Add to Favorites | Email

download | Print

print | Blog It

blog it

-1

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

1 of 1

ctiggerf

Email | Perl | RegExp

0 comments

Just a simple check to make sure that a person's email address matches their domain.

For example .. in a form you have 2 textboxs .. 1 for their website url, the other for their email address. This checks to see if the domains for the email address and the website url match.

//first check to make sure the url looks like a url and the email 

// looks like an email

my $domain;

if($form->{email} =~ m/@(.+)$/) { $domain=$1; }

if (($domain) && ($form->{site_url} =~ m/(?<![^.])\Q$domain\E$/ ))  {

   //the domains match

} else {

  //they do not match

}