Соответствие даты в Perl

Question

Я хочу сопоставить дату в формате день / месяц / год. где день - две цифры, месяц - две цифры, а год - четыре цифры. Кроме того, я хочу проверить, является ли это действительной датой, например, знает, когда это високосный год, и узнать, какой месяц имеет 30 дней, 31 день и 28 или 29 дней для февраля.

Answer 1

Взгляните на что-то вроде Date :: Manip ; нет смысла делать это самостоятельно, когда такие вещи доступны.

$date = ParseDate($mydate);
unless ($date) {
  # error
}
...

Answer 2

используйте следующий код

use strict;
use warnings;
use Date::Manip;
my $start="2010:03:30:23:02:3";
my $split=":";
my($year,$month,$date,$hour,$min,$sec);

($year,$month,$date,$hour,$min,$sec)=split($split,$start);

my $result = ParseDate("$month/$date/$year");
if(!$result)
{
    print "Invalid Date\n";
    exit;
}