All Scripts backed by 10 years in business, free support, free updates and a 30 day money back guarantee.
Download Purchase Programming F.A.Q. Support Contact
Commercial Perl Scripts
All Form Pro Updated
Count It
Form Mailer + Attachments
Client File Manager
Da Godfaddah
Dropbox Updated
FAQ Builder
HT Manager Updated
RegisterHT
Mailing List Server
Page Updater - Text
Page Updater Pro Updated
PS Guestbook Updated
PS Lightning Search Updated
Quick File Mailer
Quick MySQL
Select-A-File
Upload Center
Free Perl Scripts
Access Log Viewer
All Form
Epoch Converter
Error Log Viewer
Invoice Center
PS Upload
Question Manager
Quick CHMOD
QuickHT
Site File Finder
Site File Lister
SSI Tag Maker
Perl Modules
Monger Calendar
Monger File
Monger Mail
Monger Persist
JavaScript Generators
PopUp Windows
Meta Gen
RGB / Hex Converter
Page Colors
Sudoku
Tutorials and FAQs
Cookies
Using CuteFTP
Using WS_FTP
Installing Scripts
Debugging
Utilities
env_vars.pl
backup.pl
restore.pl
check_email.pl
date.pl
dayname.pl
fileage.pl
format_length.pl
format_url.pl
getfile.pl
parse.pl
redirect_html.pl
Free Services
Epoch Converter
TLD Registries
RGB/Hex FInder
Colour Checker
ASCII Codes
Policies
Terms and Conditions
Privacy Policy
Refund Policy
Site Map

Form Processor with no SPAM from robots.

Anti-spam, anti-robot, anti-flame, Guestbook for your website.

Manage Remote websites from your website. Allow clients to update sections of their own web pages.

Secure file manager with upload progress meter. A printer's best friend. Find out more.

Utility Name: check_email.pl
Platform: UNIX or Linux
Requires: Perl4 or higher


If your programs require that the end users enter an email, you have to make sure it is being input in the correct format. Especially if this email is going to be displayed or used for contact. If the email is not entered in the format someone@somewhere.ext, it won't work.

This utility takes away the risk that an email will be formatted incorrectly by the person inputting it. This utility will check the format of the email and then return true if it is correct or false if it is not formatted correctly. Thus, you can use it as a conditional.

For example, I use it as a test where if the email address is formatted correctly, the program proceeds and if it is not formatted correctly, the program halts and prints out an error message or input box for them to re-enter it:


	if(&check_email($FORM{'email'})) {
	    Email properly formatted, 
	    proceed with program.
	    This proceed can be a few 
	    lines long or hundreds
	    of lines long, as in a 
	    registration for a service.
	} else {
	    Email not properly formatted, 
	    print warning/error page.
	}

Here is how you use this utility:

Either cut and paste this subroutine into your own script or "require" this file by placing it in the same directory as your script and placing the following line anywhere before the subroutine is first called:

require 'check_email.pl';

Now you are ready to use it. The subroutine needs one parameter passed to it. This is the email address you want the format checked for.

Here are some of the mistakes that this utility will catch and return false for:

  • If the form is submitted with NO email address, it returns false as the email address is mandatory
  • somewhere@something
  • somewhere@@something
  • somewhere@something..com
  • somewhere.@something.com
  • somewhere@s@omething.com

NOTE: This subroutine does not check to see if the email address actually exists, it only checks to see if the email address is in the proper format.

  ©2009 All rights reserved, PerlServices.net. Website hosting by LinuxHostingPlans.com