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

Question

谁能帮我这个？我在logfilefile中有一个时间值,其格式如下:

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

我需要将此时间值转换为unixtime.

问候

Answer 1

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

将其滚动到子程序中很方便,如下所示

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