首先如 05-Jul-1998 这样的时间格式如何匹配出来呢，而且还需要与当前的时间做比较，如果时间间隔在一个范围内需要做处理。而localtime函数的格式是Fri May 23 14:35:44 2003这样的。
两种格式如何做比较呢？
谢谢！
apile 回复于：2003-05-23 16:43:00
#!/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 回复于：2003-05-26 14:25:52
if(/\d{2}-[a-zA-Z]{3}-\d{4}/)
{
print "$&\n";
}
$&表示匹配的模式（pattern）
|
