perl时间格式转换

leoxqing

请问perl怎么把‘Tue Sep 28 18:40:19 2010’ 转换成unix时间戳1285670419？

wfnh

你看一下Date::Manip模块··好像可以的

黑色阳光_cu

1. 
   
2. sub convert_time
   
3. {
   
4.         require Time::Local;
   
5. 
   
6.         my ($time_str) = @_;
   
7.         my $time;
   
8. 
   
9.         my $convert_month = sub
   
10.         {
    
11.                 my %months =
    
12.                 (
    
13.                         Jan => 0,
    
14.                         Feb => 1,
    
15.                         Mar => 2,
    
16.                         Apr => 3,
    
17.                         May => 4,
    
18.                         Jun => 5,
    
19.                         Jul => 6,
    
20.                         Aug => 7,
    
21.                         Sep => 8,
    
22.                         Oct => 9,
    
23.                         Nov => 10,
    
24.                         Dec => 11
    
25.                 );
    
26. 
    
27.                 return $months{$_[0]};
    
28.         };
    
29. 
    
30.         if ($time_str =~ /^\w+\s+(\w+)\s+(\d+)\s+(\d+):(\d+):(\d+)\s+(\d+)$/)
    
31.         {
    
32.                 my ($month, $day, $h, $m, $s, $year) = ($convert_month->($1), $2, $3, $4, $5, $6);
    
33.                 if (defined $month)
    
34.                 {
    
35.                         $time = Time::Local::timelocal($s, $m, $h, $day, $month, $year);
    
36.                 }
    
37.         }
    
38. 
    
39.         return $time;
    
40. }
    
41. 
    
42. die convert_time("Tue Sep 28 18:40:19 2010");

复制代码

magnet2008

利用
use HTTP:ate;
my $str="Tue Sep 28 18:40:19 2010";
my $time=HTTP:ate::str2time($str,'+0000'); #此处要附加'+0000'
print "$time\n";
结果
1285699219

magnet2008

改成+0800就是你的结果，这是时区的问题吧。
1285670419