怎样简单而快速地判定一个字符串是数值，以及一个字符串是日期

gsging

我感觉是否是一个日期这个问题，最好还是用比较成熟的模块来处理。
毕竟像楼上说的那样有很多情况需要考虑。

如果楼主实在不能安装的话，我觉得还可以上cpan找Date::Manip的源代码，把里面ParseDate()和他相关的代码贴到自己的代码中。

ste2008

原帖由 福瑞哈哥 于 2007-3-23 11:11 发表


感觉判断一个字符串是否是一个日期太难了吧？
那么多格式，英文的，中文的，连字符的，连写的，空格的。。。

肯定是YYYYMMDD的格式，但有可能是 20010230就错了

路小佳

1. 
   
2. sub check($) {
   
3.     my $date = shift;
   
4.     our @days = (undef, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
   
5.     my ($y, $m, $d);
   
6.     if ($date =~ m/^(\d{4})0?([1-9]{1,2})(\d{2})$/) {
   
7.         ($y, $m, $d) = ($1, $2, $3);
   
8.     }
   
9.     else {
   
10.         return 0;
    
11.     }
    
12.     if ($m > 12) {
    
13.         return 0;
    
14.     }
    
15.     my $days = $days[$m];
    
16.     if ($m == 2 and $y % 400 == 0 || $y % 4 == 0 && $y % 100 != 0) {
    
17.         $days++;
    
18.     }
    
19.     if ($d > $days) {
    
20.         return 0;
    
21.     }
    
22.     return 1;
    
23. }
    

复制代码

[ 本帖最后由 路小佳 于 2007-3-23 12:07 编辑 ]

flw

1.     if ($date =~ m/^(\d{4})0?([1-9]{1,2})(\d{2})$/) {
   
2.         ($y, $m, $d) = ($1, $2, $3);
   
3.     }
   
4.     else {
   
5.         return 0;
   
6.     }

复制代码

这段写得不好。
参考一下：

1. if ( ( ($y, $m, $d) = $date =~ m/^(\d{4})0?([1-9]{1,2})(\d{2})$/ ) < 3 ){
   
2.     return 0;
   
3. }

复制代码

或者：

1. if ( ($y, $m, $d) = unpack( 'a4a2a2', $date ) ) < 3) {
   
2.     return 0;
   
3. }

复制代码

zydll

原帖由 flw 于 2007-3-23 10:50 发表

我的想法和你恰恰相反，非标准模块，能少用就少用。

同意！

ulmer

原帖由 ste2008 于 2007-3-23 11:40 发表

肯定是YYYYMMDD的格式，但有可能是 20010230就错了

If the date's format is ISO 8601 (international standard date and time
notation), simply using regex or substr() to resolve your problem.

i.e:
/\d{8}/  # exactly 8 digits
or
/(\d{4})([0-1]\d)([0-3]\d)/    # $1:YYYY,$2:MM,$3:DD
or
($y, $m, $d) = (substr($date,0,4), substr($date,4,2), substr($date,6,2));

if you want to check YYYYMMDD further whether it's validated date or not,
there is many choise from CPAN module.

P.S.: ISO 8601 Calendar date
YYYY-MM-DD        or        YYYYMMDD
YYYY-MM        but not        YYYYMM

--ulmer

路小佳

嗯，谢谢指教。