Соответствие даты в 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; 
}