在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;
}