Chinaunix

标题: 问一个弱问题，如何判断输入的日期是否合法 [打印本页]

作者: c1l2d3 时间: 2005-12-06 14:52
标题: 问一个弱问题，如何判断输入的日期是否合法
例如：
输入20050619则合法。
输入20050631则不合法。

多谢.
（不使用模块)

[ 本帖最后由 c1l2d3 于 2005-12-6 15:08 编辑 ]

作者: apile 时间: 2005-12-06 17:46
我写过类似的..写一个subroutine...
先用my($year,$mon,$day) = $date=~/(....)(..)(..)/;
然後判断mon等於1,3,5,7,8,10,12 的$day 最大值为31天.
4,6,9,11的$day最大值为 30天..
2月如果$year %4 等於0..则为$day为29天否则为28天...
大致就这样....

作者: 兰花仙子 时间: 2005-12-06 17:52
(0[1-9]|[12][0-9]|3[01])[- /.](0[1-9]|1[012])[- /.](19|20)\d\d

会得到dd-mm-yyyy格式，你改下就行。

作者: 笨狗 时间: 2005-12-07 02:13

原帖由 兰花仙子 于 2005-12-6 10:52 发表
(0[1-9]|[12][0-9]|3[01])[- /.](0[1-9]|1[012])[- /.](19|20)\d\d

会得到dd-mm-yyyy格式，你改下就行。

这样不能判断20050631是不合法的

作者: c1l2d3 时间: 2005-12-07 08:33
谢谢apile提醒，先前被localtime迷惑了，以为它可以解决，根据您的思路，现已搞定。谢谢

作者: 兰花仙子 时间: 2005-12-07 09:03

原帖由笨狗于 2005-12-7 02:13 发表

这样不能判断20050631是不合法的

明明已限制死了嘛

作者: xxgsky 时间: 2005-12-07 10:55

use Date::Manip;
my $aa = "20050631";
if(ParseDate($aa)){
print "OK \n";
}else{
print "ERROR \n";
}

复制代码

[ 本帖最后由 xxgsky 于 2005-12-7 10:57 编辑 ]

作者: deathcult 时间: 2005-12-07 12:14
还有Date::Manip:

arseDateString;

作者: 笨狗 时间: 2005-12-07 21:15

原帖由 兰花仙子 于 2005-12-7 02:03 发表

明明已限制死了嘛

6月份没有31号

作者: 兰花仙子 时间: 2005-12-08 08:53

原帖由笨狗于 2005-12-7 21:15 发表

6月份没有31号

嘿嘿，忘记了，偶以为每个月都是固定30天呢

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)