ahh.. I was not aware the Date::Calc could catch illegal dates like
9/33/2002
i thinks i will use that. and I am also checking out your 'Form data
checker' now.

THANKS !!

> -----Original Message-----
> From: fliptop [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, July 31, 2002 9:42 PM
> To: Kipp, James
> Cc: '[EMAIL PROTECTED]'
> Subject: Re: Checking Form data
> 
> 
> Kipp, James wrote:
> 
> > What is the best way to validate form data. I have a form 
> which the user
> > enters dates like '08/01/2002'. What is the best way to 
> make sure this
> > format is entered. Should i use javascript here or regex?
> 
> 
> i had some free time, so i decided to finish up some thoughts i have 
> regarding validating form data.  i've developed a simple module to 
> perform basic validation and shown how to implement it.  it's all 
> available here:
> 
> http://www.peacecomputers.com/form_checker/
> 
> please send any errata or general comments directly to me, 
> not the list.
> 
> many thanks to Eric Moore ([EMAIL PROTECTED]) for his help and 
> patience during development.
> 
> please note that this module doesn't really answer the 
> question posed by 
> the original poster, namely 'how do i validate a date?'  imho, i'd do 
> that like this (for slash-delimited dates only):
> 
> use strict;
> use Date::Calc qw(check_date);
> 
> my @date = qw( 08/02/2002
>                 7/3/2003
>                 13/3/2006
>                 09/33/2002
>                 al/df/ioji
>                 09/14/66
> );
> 
> for my $date (@date) {
>    my ($month, $day, $year) = split "/", $date;
> 
>    if (check_date($year,$month,$day)) { print "$date is kosher\n"; }
>    else { print "$date is uncool\n"; }
> }
> 
> OUTPUT
> 
> 08/02/2002 is kosher
> 7/3/2003 is kosher
> 13/3/2006 is uncool
> 09/33/2002 is uncool
> Argument "ioji" isn't numeric in subroutine entry at try1.pl line 17.
> Argument "al" isn't numeric in subroutine entry at try1.pl line 17.
> Argument "df" isn't numeric in subroutine entry at try1.pl line 17.
> al/df/ioji is uncool
> 09/14/66 is kosher
> 
> 


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to