PERL 如何将本地时间格式转换为 unixtime

Question

谁能帮我解决这个问题？我在具有以下格式的日志文件中有一个时间值:

2012 年 8 月 28 日星期二 09:50:06

我需要将这个时间值转换成 unixtime。

问候

Answer 1

这里你最好的选择是Time::Piece ，这是一个核心模块，因此不需要安装。它有一个用于解析时间/日期字符串的 strptime 方法和一个用于返回 Unix 纪元时间的 epoch 方法

如这里所示，将其滚动到子例程中很方便

use strict;
use warnings;

use Time::Piece ();

print date_to_epoch('Tue Aug 28 09:50:06 2012'), "\n";

sub date_to_epoch {
   return Time::Piece->strptime($_[0], '%a %b %d %T %Y')->epoch;
}

输出

1346147406