I need to validate the input for three types of fields. I am sure someone out there already has the syntax.

The three field types are:

Telephone Number

Email

5-Digit Zipcode

Thanks for the help.

Lee

zip code is easy..

=~ /^\d{5}$/

....what format should the phone number be in?

You can use Email::Valid to check emails or a simple regex is:

=~ /^\S+@\S+\.\S+$/

Wow ... that was a fast response!

For telephone, I suppose what I need is just to check to see that (, ), -, and 0-9 are the only characters allowed. I'm doing a project for a corporation that has extensions that can be used for the phone number. So, a person could validly input the following, all the following being "legal":

(123) 456-7890

123-456-7890

1234567890

890

>>
(123) 456-7890

123-456-7890

1234567890

890
<<

Try:

=~ /^\(?\d{3}\)?(?:[\s\-]*\d{3}[\s\-]*\d{4})?$/;

That *should* match any of the above, plus 123 456 7890 and (123) 456 7890

it'll also match..

123)--------------------------------------------------------4567890


or something like that..

That doesn't work - gives me an error.

Can someone please check and see or if there is a better solution:

elsif (($fields{daytel} eq "") || ($fields{daytel} =~ /^\(?\d{3}\)?(?:[\s\-]*\d{3}[\s\-]*\d{4})?$/) || $daytel_length < 9)
{
print "<h4>Your phone number is invalid. <A HREF=\"javascript:history.back()\">Go Back</A></h4>\n";
}

Thanks

How about having each part of the phone number as a seperate input? then a simple variation of ^\d{3}$ will do for each part. Definately not an elegant approach, but it is a perfectly valid and simple solution.

Here's a dirty solution for you...


it strips out any non-digit, then takes the first 10 digits from that. Then it tests that there are EXACTLY 7 or 10 digits. Of course the test is brain-dead when it comes to telling the difference between a fake phone number (like 000-0000) and a real one.

Philip
------------------
Limecat is not pleased.

Thanks Philip but what is the follwing supposed to do?
$num = "aldkj654658djkd5465";


I had to remove it for it to work - wouldn't work otherwise.

To detect more than 3 repititive digits I added :

elsif ($num !~ /^(\d{7}|\d{10})$/ || $num =~(/([0-9]{2,})\1/)) {

That was just an example input variable for you to see what kind of "junk" input could be used, and still get a valid phone number from it. As an afterthought, you don't really want to use substr() as that's being too forgiving trying to make the input valid.

Philip
------------------
Limecat is not pleased.