在perl中匹配日期

时间:2010-04-04 03:32:23

标签: regex perl

我希望以日/月/年的格式匹配日期。其中日是两位数,月份是两位数,年份是四位数。此外,我想查看它是否是一个有效的日期,例如知道闰年的时间,并知道哪个月有30天,31天和28天,或29天。

2 个答案:

答案 0 :(得分:4)

看看像Date::Manip这样的东西;当这样的事情可用时,你自己也没有什么意义。

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

答案 1 :(得分:1)

使用以下代码

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