=**************************************
= Name: Validation Subroutines
= Description:This is a simple script th
= at uses Regular
Expressions to validate input data. This
can be easily converted into a Perl Module
so it can be reused over and over. Includes: IsAlphaNumeric, IsChar, IsDate, IsEmail, IsNumeric, and IsTime.
= By: Randy McCleary
=
=This code is copyrighted and has = limited warranties.Please see http://w
= ww.Planet-Source-Code.com/vb/scripts/Sho
= wCode.asp?txtCodeId=486&lngWId;=6 =for details. =**************************************
#!/usr/bin/perl -w
################################################
# This is a simple script that uses Regular
# Expressions to validate input data. This
# can be easily converted into a Perl Module
# so it can be reused over and over.
################################################
use strict;
my $InputTest = '';
my $Test = '';
my $Choice = 0;
&PrintMenu;
print "Enter a Choice(1-8): ";
chomp ($Choice = <STDIN>);
if(&IsNumeric;($Choice) == 0) {
$Choice = 0;
}
while ($Choice != 8) {
if ($Choice == 1) {
print 'Enter a Date to Validate: ';
chomp ($InputTest = <STDIN>);
$Test = &IsDate;($InputTest);
if ($Test ==1) {
print "Valid Date\n";
}
else {
print "Invalid Date\n";
}
}
elsif ($Choice == 2) {
print 'Enter a Time to Validate: ';
chomp ($InputTest = <STDIN>);
$Test = &IsTime;($InputTest);
if ($Test == 1) {
print "Valid Time\n";
}
else {
print "Invalid Time\n";
}
}
elsif ($Choice == 3) {
print 'Enter a Number to Validate: ';
chomp ($InputTest = <STDIN>);
$Test = &IsNumeric;($InputTest);
if ($Test == 1) {
print "Valid Number\n";
}
else {
print "Invalid Number\n";
}
}
elsif ($Choice == 4) {
print 'Enter a Char to Validate: ';
chomp ($InputTest = <STDIN>);
$Test = &IsChar;($InputTest);
if ($Test == 1) {
print "Valid Char\n";
}
else {
print "Invalid Char\n";
}
}
elsif ($Choice == 5) {
print 'Enter a AlphaNumeric String Validate: ';
chomp ($InputTest = <STDIN>);
$Test = &IsAlphaNumeric;($InputTest);
if ($Test == 1) {
print "Valid AlphaNumeric\n";
}
else {
print "Invalid AlphaNumeric\n";
}
}
elsif ($Choice == 6) {
print 'Enter an Email Address to Validate: ';
chomp ($InputTest = <STDIN>);
$Test = &IsEmail;($InputTest);
if ($Test == 1) {
print "Valid Email Address\n";
}
else {
print "Invalid Email Address\n";
}
}
elsif ($Choice == 7) {
&PrintMenu;
}
else {
print "\nYou entered and invalid choice please choose a choice from the menu.\n\n";
}
print "\nEnter a Choice(1-8): ";
chomp ($Choice = <STDIN>);
if(&IsNumeric;($Choice) == 0) {
$Choice = 0;
}
}
##################################################################
## Sub Name: PrintMenu.
## Description: This sub is just used to print the Main Menu at
## the start and whenever the user would like to see the Menu
## again by entering 7 to access the menu.
##################################################################
sub PrintMenu {
print "\n\n\n\n\n\n\n\n";
print "******************************************\n";
print "** Validation Main Menu **\n";
print "******************************************\n";
print " 1. Date Validation\n";
print " 2. Time Validation\n";
print " 3. Number Validation\n";
print " 4. Character Validation\n";
print " 5. AlphaNumeric Validation\n";
print " 6. Email Validation\n";
print " 7. Display Menu\n";
print " 8. Exit\n";
print "******************************************\n\n\n";
}
##################################################################
## Sub Name: IsAlphaNumeric.
## Description: This sub validates the input to check to see if
## the input is a valid Alpha Numeric string. That can contain
## any letters in the alphabet and numbers 0-9.
##################################################################
sub IsAlphaNumeric {
my $InputString = shift;
if ($InputString !~ /^[0-9a-zA-Z]*$/) {
return 0;
}
else {
return 1;
}
}
##################################################################
## Sub Name: IsChar.
## Description: This sub validates the input to check to see if
## the input is a valid character string not including numbers.
## Example: Any string that does not contain 0-9.
##################################################################
sub IsChar {
my $InputString = shift;
if ($InputString !~ /^[^0-9]*$/) {
return 0;
}
else {
return 1;
}
}
##################################################################
## Sub Name: IsDate.
## Description: This sub validates the input to check to see if
## the input is a valid date. It checks for leap year and the
## number of days in each month.
## Example Formats:
## 1. 10/20/2003 = mm/dd/yyyy
## 2. 20/10/2003 = dd/mm/yyyy
## 3. 10-20-2003 = mm-dd-yyyy
## 4. 20-10-2003 = dd-mm-yyyy
## 5. 2003-10-20 = yyyy-mm-dd
## 6. Thursday, June 26, 2003
## 7. Sat Oct 25 14:23:17 2003
## Returns:
## 1 - True
## 0 - False
##################################################################
sub IsDate {
my $InputString = shift;
my $strDays = "Sunday|Monday|Tuesday|Wednesday|Thursday|Friday|Saturday";
my $strAbbrDays = "Sun|Mon|Tue|Thu|Fri|Sat";
my $strMons = "January|Feburary|March|April|May|June|July|August|September|October|November|December";
my $strAbbrMons = "Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec";
if ($InputString =~ /^(\d{1,2})(\/|-)(\d{1,2})\2(\d{4})$/) {
if (($1 < 1 || $1 > 12) && ($3 < 1 || $3 > 12)) {
return 0;
}
if (($3 < 1 || $3 > 31) && ($3 < 1 || $3 > 31)) {
return 0;
}
if (($1==4 || $1==6 || $1==9 || $1==11) && $1==31) {
return 0;
}
if ($1 == 2) {
if ($3>29 || ($3==29 && !($4 % 4 == 0 && ($4 % 100 != 0 || $4 % 400 == 0)))) {
return 0;
}
}
return 1;
}
elsif ($InputString =~ /^(\d{4})(\-)(\d{1,2})\2(\d{1,2})$/) {
if ($3 < 1 || $3 > 12) {
return 0;
}
if ($4 < 1 || $4 > 31) {
return 0;
}
if (($3==4 || $3==6 || $3==9 || $3==11) && $3==31) {
return 0;
}
if ($3 == 2) {
if ($4>29 || ($4==29 && !($1 % 4 == 0 && ($1 % 100 != 0 || $1 % 400 == 0)))) {
return 0;
}
}
return 1;
}
### Saturday, June 26, 2003
elsif ($InputString =~ /^[A-Z][a-z]+,\s[A-Z][a-z]\d{1,2}(,)\d{4}$/) {
### The Input has a valid Date Format, now its time to Validate
### the inputted to date to see is a Valid Date
### Code to Validate the Date String
return 1;
}
### Sat Oct 25 14:23:17 2003
elsif ($InputString =~ /^($strAbbrDays) ($strAbbrMons) (\d{1,2}) (\d{2}):(\d{2}):(\d{2}) (\d{4})$/) {
### The Input has a valid Date Format, now its time to Validate
### the inputted to date to see is a Valid Date
### Code to Validate the Date String
return 1;
}
else {
return 0;
}
}
##################################################################
## This sub is just for testing the 2 additonal Date Formats
## which is still in the process of being coded. This will
## return 1 if the format is valid, but does not test if the
## date is valid yet.
##################################################################
sub IsDate2 {
my $InputString = shift;
my $strDays = "Sunday|Monday|Tuesday|Wednesday|Thursday|Friday|Saturday";
my $strAbbrDays = "Sun|Mon|Tue|Thu|Fri|Sat";
my $strMons = "January|Feburary|March|April|May|June|July|August|September|October|November|December";
my $strAbbrMons = "Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec";
### Saturday, June 26, 2003
if ($InputString =~ /^($strDays)(, )($strMons)( )(\d{1,2})(, )(\d{4})$/) {
### The Input has a valid Date Format, now its time to Validate
### the inputted to date to see is a Valid Date
### Code to Validate the Date String
return 1;
}
### Sat Oct 25 14:23:17 2003
elsif ($InputString =~ /^($strAbbrDays) ($strAbbrMons) (\d{1,2}) (\d{2}):(\d{2}):(\d{2}) (\d{4})$/) {
### The Input has a valid Date Format, now its time to Validate
### the inputted to date to see is a Valid Date
### Code to Validate the Date String
return 1;
}
else {
return 0;
}
}
##################################################################
## Sub Name: IsEmail.
## Description: This sub validates the input to check to see if
## the input is a valid format of an e-mail address.
## Example: webmaster@msn.com.
##################################################################
sub IsEmail {
my $InputString = shift;
if ($InputString =~ /^[\w.]+@\w[\w.-]+\w\.[A-Za-z]{2,4}$/) {
return 1;
}
else {
return 0;
}
}
##################################################################
## Sub Name: IsNumeric.
## Description: This sub validates the input to check to see if
## the input is a Numeric value
## Example: 100, 1,000, $10.00, and 14.00 are valid inputs.
##################################################################
sub IsNumeric {
my $InputString = shift;
if ($InputString !~ /^[0-9|.|,]*$/) {
return 0;
}
else {
return 1;
}
}
##################################################################
## Sub Name: IsTime.
## Description: This sub validates the input against 3 different
## Time Formats.
## Example Formats:
## 1. 3:30:00 PM
## 2. 3:30 PM
## 3. 15:30
##################################################################
sub IsTime {
my $InputString = shift;
# Validate for this format: 3:38:00 PM
if ($InputString =~ /^(\d{1,2})(\:)(\d{2})\2(\d{2})(\ )(\w[am|pm])$/i) {
if (($1 > 12 || $1 <= 0) || ($3 > 59 || $3 < 0) || ($4 > 59 || $4 < 0)) {
return 0;
}
else {
return 1;
}
}
# Validate for this format: 3:48 PM
elsif ($InputString =~ /^(\d{1,2})(\:)(\d{2})(\ )(\w[am|pm])$/i) {
if (($1 > 12 || $1 <= 0) || ($3 > 59 || $3 < 0)) {
return 0;
}
else {
return 1;
}
}
# Validate for this format: 15:48
elsif ($InputString =~ /^(\d{1,2})(\:)(\d{1,2})$/) {
if (($1 > 23 || $1 < 0) || ($3 > 59 || $3 < 0)) {
return 0;
}
else {
return 1;
}
}
return 0;
}
##################################################################
## Sub Name: IsPrime.
## Description: This sub validates the input to check to see if
## the input is a Numeric value
## Example: 100, 1,000, $10.00, and 14.00 are valid inputs.
##################################################################
sub IsPrime {
use integer;
my $InputNumber = shift;
if ($InputNumber < 2) {
return 0;
}
else {
my $y = $InputNumber/2;
my $flag = 0;
while ($y > 1 && $flag == 0) {
if ($InputNumber % $y == 0) {
$flag++ ;
}
$y-- ;
}
if ($flag){
return 0;
}
else {
return 1;
}
}
}
##################################################################
## Sub Name: Split.
## Description: This sub will split a string up into an Array
## Example: Split("string1, string2, string3", ", ");
## $1 = "string1";
## $2 = "string2";
## $3 = "string3";
##################################################################
sub Split {
my $strString = shift;
my $strSplit = shift;
my @words = ();
@words = split /$strSplit/, $strString;
return @words;
}
##################################################################
## Sub Name: Replace.
## Description: This sub will search for a character string within
## another string and if found will replace it.
## Example: $Text = Replace("string1, string2, string3", ", ", ";");
## $Text = "string1;string2;string3";
##################################################################
sub Replace {
my $strString = shift;
my $strSearch = shift;
my $strReplace = shift;
$strString =~ s/$strSearch/$strReplace/ge;
return $strString;
}
|
