Validate date value

[ashokpj]

Hi Monks,

I like to validate date value, below scripts will find if day is more the 31 days and month is more than 12. But this scripts incorrectly allow for february to have 31 days

please let me know which module support to validate date value(involved leap years ) and format.

use Time::Local;
my ($sec,$min,$hour) = qw( 0 0 12 );
my ($mday, $mon, $year) = qw(31 02 2012);
$mon--; # because that's how unix/C treat the month value

eval {
    my $dummy = timelocal($sec,$min,$hour,$mday,$mon,$year);
};
print $@;
if (my $err = $@) {
    print "This is an invalid date.";
} else {
    print "Yay";
};

[Punitha]

Hi ashok,
This is the another way to validate the date value.Try this

use strict;
use warnings;
use Date::Calc qw(check_date);
my ($mday, $mon, $year) = qw(28 02 2012);
if (check_date($year,$mon,$mday)){
    ####Your stuffs here
}
else{
        print "Check the date is not a valid one\n";
}

Punitha

[bart]

You're using timelocal already... good. Now you just have to check, after conversion of $dummy (which is an epoch time in seconds) back to date/time components, with localtime, whether you end up with the same day of the month. If not, it must have wrapped to the next month.

eval {
    my $dummy = timelocal($sec,$min,$hour,$mday,$mon,$year);
    die "Day out of range" unless (localtime($dummy))[3] == $mday;
};

Note that you also got accepted dates for the 31st of all other short months than just February: April, June, September, November. Now they'll all be caught.

[shmem]

In the Tutorials section, you find Getting started with DateTime scrolling around a little bit. DateTime is on CPAN.

[svenXY]

Hi,


...
my $dummy;
eval {
    $dummy = timelocal($sec,$min,$hour,$mday,$mon,$year);
};
...

will output:

$ perl 642627.pl
Day '31' out of range 1..29 at 642627.pl line 13
This is an invalid date.

You define your $dummy within the eval{}, therefore it's invisible after eval finishes.
Regards,
svenXY

[apl]

MetaCPAN is your friend.