Perl Question?

Question

Hi,can anyone help me. i need to verify that a users data entered is correct using Perl, i want to check that the date they enter is in the correct format, eg dd/mm/yy.
thx

It has to be done using perl

Answer 1

Something along the lines of:
my ($day,$month,$year) = split (/\//, $date);
die "Bad date" unless ($day < 32 && $month < 13 & $year);

or, to be more strict:

my ($day,$month,$year) = ($1,$2,$3) if $date =~ m'(\d\d)/(\d\d)/(\d\d)';
die "Bad date" unless ($day < 32 && $month < 13 & $year);

Or, if you are on a normal (non-windoze) os, just do
die "Bad date" unless `date -d "$date" +%d/%m/%y 2>/dev/null`;

Answer 2

$date = '05/11/87';
$date =~ /^(\d\d)\/(\d\d)\/(\d\d)$/;
($month, $day, $year) = ($1, $2, $3);


if ($month)
{

if ( ($month <= 12 && $month >= 1) && ($day <= 31 && $day >= 1) ) { print "Correct input"; } #

else { print "Incorrect Input"; }

}
else { print "Wrong format"; }


----

This will make sure that mm/dd/yy is entered exactly..

Answer 3

Where is the data being entered? You could check the data format using Javascript which is much easier...