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