CGIScript.net :: Automate your website for less!

Perl Email Syntax Checker Go to www.cgiscript.net for more free tools!
Description: Use this code to test an email address for proper syntax. It will return '1' if the email address passes or a '0' if it fails. You can use it in conjunction with the Ace Perl Popup Window to let the user know they entered an invalid email address. For example: if(!&check_email(email)){ &PError("Error. Invalid email address."); }
Directions: Follow Steps 1 and 2 below. Use the 'Grab Text' buttons to select the code within the adjacent textarea. Then use Control-C or Edit -> Copy to buffer the text for pasting into your document.

Usage (Step 1): Use this code to check the email address. $valid will be '1' or true if it passes or a '0' or false if it fails. Replace [EMAIL] with the variable name you want to check.

Then use Control-C to copy the text into your web page.
$valid=&check_email("[EMAIL]");

Code (Step 2): Add the following code somewhere within your script.

Then use Control-C to copy the text into your web page.
sub check_email { # Initialize local email variable with input to subroutine. # $email = $_[0]; # If the e-mail address contains: # if ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)/ || # the e-mail address contains an invalid syntax. Or, if the # # syntax does not match the following regular expression pattern # # it fails basic syntax verification. # $email !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/) { # Basic syntax requires: one or more characters before the @ sign, # # followed by an optional '[', then any number of letters, numbers, # # dashes or periods (valid domain/IP characters) ending in a period # # and then 2 or 3 letters (for domain suffixes) or 1 to 3 numbers # # (for IP addresses). An ending bracket is also allowed as it is # # valid syntax to have an email address like: user@[255.255.255.0] # # Return a false value, since the e-mail address did not pass valid # # syntax. # return 0; } else { # Return a true value, e-mail verification passed. # return 1; } }