问一个弱问题，如何判断输入的日期是否合法

c1l2d3

例如：
输入20050619则合法。
输入20050631则不合法。

多谢.
（不使用模块)

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

apile

我写过类似的..写一个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天...
大致就这样....

兰花仙子

(0[1-9]|[12][0-9]|3[01])[- /.](0[1-9]|1[012])[- /.](19|20)\d\d

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

笨狗

原帖由 兰花仙子 于 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

谢谢apile提醒，先前被localtime迷惑了，以为它可以解决，根据您的思路，现已搞定。谢谢

兰花仙子

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

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

明明已限制死了嘛

xxgsky

1. 
   
2. use Date::Manip;
   
3. my $aa = "20050631";
   
4. if(ParseDate($aa)){
   
5.         print "OK \n";
   
6. }else{
   
7.         print "ERROR \n";
   
8. }
   

复制代码

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

deathcult

还有Date::Manip:arseDateString;  

笨狗

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


明明已限制死了嘛

6月份没有31号

兰花仙子

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

6月份没有31号

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