首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → perl时间格式转换

perl时间格式转换

时间：2010-09-29

来源：互联网

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

作者: leoxqing   发布时间: 2010-09-29

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

作者: wfnh   发布时间: 2010-09-29

本帖最后由 黑色阳光_cu 于 2010-09-29 15:01 编辑
  1. sub convert_time
  2. {
  3.         require Time::Local;

  5.         my ($time_str) = @_;
  6.         my $time;

  8.         my $convert_month = sub
  9.         {
  10.                 my %months =
  11.                 (
  12.                         Jan => 0,
  13.                         Feb => 1,
  14.                         Mar => 2,
  15.                         Apr => 3,
  16.                         May => 4,
  17.                         Jun => 5,
  18.                         Jul => 6,
  19.                         Aug => 7,
  20.                         Sep => 8,
  21.                         Oct => 9,
  22.                         Nov => 10,
  23.                         Dec => 11
  24.                 );

  26.                 return $months{$_[0]};
  27.         };

  29.         if ($time_str =~ /^\w+\s+(\w+)\s+(\d+)\s+(\d+):(\d+):(\d+)\s+(\d+)$/)
  30.         {
  31.                 my ($month, $day, $h, $m, $s, $year) = ($convert_month->($1), $2, $3, $4, $5, $6);
  32.                 if (defined $month)
  33.                 {
  34.                         $time = Time::Local::timelocal($s, $m, $h, $day, $month, $year);
  35.                 }
  36.         }

  38.         return $time;
  39. }

  41. die convert_time("Tue Sep 28 18:40:19 2010");
复制代码

作者: 黑色阳光_cu   发布时间: 2010-09-29

利用
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   发布时间: 2010-09-29

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

作者: magnet2008   发布时间: 2010-09-29

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net