关于时间的函数？

梦恋情人

如果得到像 Wed, 25-Jun-2008 08:13:23 GMT  这种格式的时间呢？？？


有关时间的函数有那些？

lgjut

use HTTP:ate qw(time2str str2time time2iso time2isoz);

my $stringGMT = 'Wed, 25-Jun-2008 08:13:23 GMT';
my $time = str2time($stringGMT);  # convert ASCII date to machine time

my $stringISO = time2iso($time);
print "$stringISO\n";

-----------------------------------------
2008-06-25 16:13:23

deathcult

"Tuesday, 08-Feb-1994 14:15:29 GMT"   -- broken rfc850 HTTP format

HTTP:ate->;new->;parse_date("Wed, 25-Jun-2008 08:13:23 GMT"

lgjut

use HTTP:ate qw(parse_date);

($year, $month, $day, $hour, $min, $sec, $tz) = parse_date( 'Tuesday, 08-Feb-1994 14:15:29 GMT');   # Format as GMT ASCII time

print "$year-$month-$day $hourminsec\n";