谁能帮我解决这个问题?我在具有以下格式的日志文件中有一个时间值:
2012 年 8 月 28 日星期二 09:50:06
我需要将这个时间值转换成 unixtime。
问候
最佳答案
这里你最好的选择是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
关于PERL 如何将本地时间格式转换为 unixtime,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/12214246/