如何在Perl中将日期/时间转换为纪元时间(自1970年以来的unix时间/秒)？

给定一个日期/时间的(年,月,日,时,分,秒)的数组,你会如何将其转换为划时代的时间,即自1970-01-01 00:00:00 GMT的秒数？

额外问题:如果将日期/时间作为字符串给出,您将如何首先将其解析为(y,m,d,h,m,s)数组？

1> SpoonMeiser..：

---

如果您正在使用DateTime模块,则可以在DateTime对象上调用epoch()方法,因为这就是您认为的unix时间.

使用DateTimes可以轻松地从纪元转换为日期对象.

另外,localtime和gmtime会将一个纪元转换为一个包含日月和年的数组,而来自Time :: Local模块的 timelocal和timegm将反过来,转换一组时间元素(秒,分钟,......,天) ,几个月等)进入一个时代.

2> dreeves..：

---

这是获得unix时间的最简单方法:

use Time::Local;
timelocal($second,$minute,$hour,$day,$month-1,$year);

请注意参数的相反顺序,1月是0月.有更多选项,请参阅CPAN中的DateTime模块.

至于解析,请参阅CPAN中的Date :: Parse模块.如果你真的需要对日期解析感兴趣,Date :: Manip可能会有所帮助,虽然它自己的文档警告你远离它,因为它带有很多包袱(它知道像常见的商业假期等)和其他解决方案要快得多.

如果你碰巧知道你将要解析的日期/时间的格式,那么一个简单的正则表达式可能就足够了,但你可能最好使用适当的CPAN模块.例如,如果您知道日期将始终采用YMDHMS顺序,请使用CPAN模块DateTime :: Format :: ISO8601.

---

对于我自己的参考,如果没有别的,下面是我用于应用程序的函数,我知道日期将始终以YMDHMS顺序,全部或部分"HMS"部分是可选的.它接受任何分隔符(例如,"2009-02-15"或"2009.02.15").它返回相应的unix时间(自1970-01-01 00:00:00 GMT以来的秒数)或-1如果它无法解析它(这意味着你最好确定你永远不会合法地需要解析日期1969- 12-31 23:59:59)它还假设两位数年份XX到"69"表示"20XX",否则"19XX"(例如,"50-02-15"表示2050-02-15但"75-02-15"表示1975- 02-15).

use Time::Local;

sub parsedate { 
  my($s) = @_;
  my($year, $month, $day, $hour, $minute, $second);

  if($s =~ m{^\s*(\d{1,4})\W*0*(\d{1,2})\W*0*(\d{1,2})\W*0*
                 (\d{0,2})\W*0*(\d{0,2})\W*0*(\d{0,2})}x) {
    $year = $1;  $month = $2;   $day = $3;
    $hour = $4;  $minute = $5;  $second = $6;
    $hour |= 0;  $minute |= 0;  $second |= 0;  # defaults.
    $year = ($year<100 ? ($year<70 ? 2000+$year : 1900+$year) : $year);
    return timelocal($second,$minute,$hour,$day,$month-1,$year);  
  }
  return -1;
}

---

strftime用于输出时间,timelocal用于"输入"它们.

3> bmdhacks..：

---

要解析日期,请在CPAN中查看Date :: Parse.

4> ysth..：

---

$ENV{TZ}="GMT";
POSIX::tzset();
$time = POSIX::mktime($s,$m,$h,$d,$mo-1,$y-1900);

5> Sobrique..：

---

我知道这是一个老问题,但我想我会提供另一个答案.

Time::Piece 是Perl 5.9.5的核心

这允许通过该strptime方法以任意格式解析时间.

例如:

my $t = Time::Piece->strptime("Sunday 3rd Nov, 1943",
                              "%A %drd %b, %Y");

有用的部分是 - 因为它是一个重载的对象,你可以用它进行数值比较.

例如

if ( $t < time() ) { #do something }

或者,如果您在字符串上下文中访问它:

print $t,"\n"; 

你得到:

Wed Nov  3 00:00:00 1943

有一堆访问器方法允许一些其他有用的基于时间的变换.https://metacpan.org/pod/Time::Piece

6> 小智..：

---

从CPAN获取日期:: Manip,然后:

use Date::Manip;
$string = '18-Sep-2008 20:09'; # or a wide range of other date formats
$unix_time = UnixDate( ParseDate($string), "%s" );

编辑:

Date :: Manip很大很慢,但解析非常灵活,而且它是纯粹的perl.如果您在编写代码时匆忙,请使用它,并且您知道在运行代码时不会匆忙.

例如,在启动时使用它来解析命令行选项,但不要使用它在繁忙的Web服务器上解析大量数据.

见作者的评论.

(感谢下面第一条评论的作者)

---

不,请不要.Date :: Manip自己的文档有一个很大的部分,试图说服你不要使用它.

---

Date :: Manip会在你最脆弱的时候背叛你.使用DateTime.:)