perl 日期合法检查

来源：百度知道 编辑：UC知道 时间：2024/06/17 13:48:59
有没有什么样简单的办法检查一下perl日期是否合法?
输入格式:YYYYMMDD
不合法日期如:
YY08205
200822
20070229
20081355
.......

use HTTP::Date;
if (str2time("20080808")) {
print "ok";
} else {
print "fail";
}

用360应该可以

#!usr/bin/perl
use strict;
my $datachar;
if(!defined($ARGV[0]))
{
$datachar = "20110229";
#print "$datachar\n";

}
else{
$datachar = $ARGV[0];
#print "$datachar\n";
}
my $_=$datachar;
my $count =s/(-)/$1/ig, "\n";# i是不区分大小写 g是替换全部,统计字符串-字符的个数
my $position1 = index($datachar,"-",1);#4
my $position2 = index($datachar,"-",5);#7
my $len=length($datachar);
my @data;
my $year;
my $month;
my $day;
my @m=('01','02','03','04','05','06','07','08','09','10','11','12');
my @m1=('01','03','05','07','08','10