Perl 将本地时间转换为 unix（纪元）时间

Question

使用 perl，我试图估计自文件创建以来的时间。 我想将本地时间转换为 unix 时间（纪元），然后取文件的 unix 时间并减去。

我面临的问题是，当我将 localtime 转换为 unixtime 时，它​​转换不正确！

my $current = str2time (localtime(time));
print $current;

我得到的结果是

2768504400 = Sun, 23 Sep 2057 21:00:00 GMT
2421349200 = Sun, 23 Sep 2046 21:00:00 GMT

我必须以特定日期格式输入 str2time 吗？

Answer 1

你在这里做了一些奇怪的事情 - localtime(time) 需要 - 纪元时间 (time) 并将其转换为字符串。

然后你把它转换回来。

只需使用time()

或者更好的是-M，它告诉您文件多久以前被修改过。 （在几天内，所以你必须乘以）。

例如：

my $filename = "sample.csv";
my $modification = -M $filename;
print $modification * 84600;

但是，如果您真的想花时间再次将其转换回来 - 您需要查看 localtime(time) 如何返回结果。

如果你这样做：

print localtime(time);

你得到：

5671624811542661

因为localtime 在列表上下文中被评估，因此返回一个值数组。 （无需解析即可使用）。

 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                                localtime(time);

如果您在标量上下文中执行此操作，它会返回一个表示时间的字符串：

print "".localtime(time);

给予：

Thu Sep 24 16:09:33 2015

但请注意 - 这可能会因您当前的语言环境而有所不同。这就是可能str2time 做奇怪事情的原因——因为它对并不总是适用的格式做出了某些假设。最大的问题是：

当月份和日期都在日期中指定为数字时，它们总是被解析，假设月份数字在日期之前。这是美国日期中使用的常用格式。

您可能最好使用Time::Piece 和strftime 来获得固定格式：

例如

use Time::Piece;
print localtime(time) -> strftime ( "%Y-%m-%d %H:%M:%S" );

注意 - Time::Piece 重载 localtime，因此您实际上可以（相当）透明地使用它。当然，那么你也可以也这样做：

print localtime(time) -> epoch;

而且不用大惊小怪地来回转换。

Answer 2

您错过了请求本地时间来生成标量（字符串）而不是数组。

use Date::Parse;
my $current = str2time (scalar(localtime(time)));
print $current, "\n";
print scalar(localtime($current)),"\n";

perldoc -f localtime

将时间函数返回的时间转换为 9 元素 列出为本地时区分析的时间。通常 用法如下：
# 0 1 2 3 4 5 6 7 8
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
...
在标量上下文中，“localtime()”返回 ctime(3) 值：
$now_string = 本地时间； # 例如，“Thu Oct 13 04:54:34 1994”