请教如何做时间的匹配？

tonyfox

首先如 05-Jul-1998 这样的时间格式如何匹配出来呢，而且还需要与当前的时间做比较，如果时间间隔在一个范围内需要做处理。而localtime函数的格式是Fri May 23 14:35:44 2003这样的。
两种格式如何做比较呢？
谢谢！

apile

#!/usr/bin/perl
%h = (
      Jan =>; 1,
      Feb =>; 2,
      Mar =>; 3,
      Apr =>; 4,
      May =>; 5,
      Jun =>; 6,
      Jul =>; 7,
      Aug =>; 8,
      Sep =>; 9,
      Oct =>; 10,
      Nov =>; 11,
      Dec =>; 12
    );

$abc = "05-Jul-1998";
$abc =~/(\d+)-(\w+)-(\d+)/;
$day = $1;
$mon = $h{$2};
$year = $3;
print "$day,$mon,$year\n";
$cde = "Fri May 23 14::35::44 2003";

@aa = split(/ /, $cde);

$day1 = $aa[2];
$mon1 = $h{$aa[1]};
$year1 = pop(@aa);
print "$day1,$mon1,$year1\n";

不用module自己做..剩下來的靠你自己了.

deathcult

1. 
   
2. if(/\d{2}-[a-zA-Z]{3}-\d{4}/)
   
3.         {
   
4.                 print "$&\n";
   
5.         }
   

复制代码

$&表示匹配的模式（pattern）