当输入仅为秒时，Perl 本地时间返回 16 小时

Question

我一定做错了什么，但我无法弄清楚。当我将秒作为 localtime() 的参数时，我会得到秒和 16 小时。

my $startTime = time;

(process)

my $endTime = time;

my $diffTime = ( $endTime - $startTime );

($sec,$min,$hour) = localtime( $diffTime );

print STDERR "diffTime = $diffTime\n";
print STDERR "hour = $hour\n";
print STDERR "min= $min\n";
print STDERR "sec = $sec\n";

print( sprintf( "Elapsed time : %02d:%02d:%02d\n", $hour, $min, $sec ) );

...总是打印：

diffTime = 4
hour = 16
min= 0
sec = 4
Elapsed time : 16:00:04

好的。弄清楚如何添加评论 - NoScript 设置太严格。

谢谢...

我似乎无法向该线程添加评论，所以我只是感谢这里的每个人。

不使用 gmtime 是问题所在。它可能不是最有效的解决方案，但它可以满足我的需要，这只是用户评估他/她可能等待例程完成多长时间并决定输入有多大的信息他/她熟悉的数据集。

Answer 1

你混合了持续时间和时间戳，这是自找麻烦......
正如曼苏尔建议的那样，您可能可以使用gmtime，但您仍然将苹果用作橙子。

以下内容有效，并使用核心 Time::Piece 和 Time::Seconds 模块。不过，对于 $diffTime->pretty，您需要比当前 Perl 版本捆绑的 Time::Piece 版本更新的版本 (1.20)。

use strict;
use warnings;
use 5.010;
use Time::Piece 1.20;

my $startTime = localtime();

# (process)

my $endTime = localtime();

my $diffTime = ( $endTime - $startTime );

say STDERR "diffTime = ", $diffTime;
say STDERR "hours = ", $diffTime->hours;      # not the same thing as above
say STDERR "minutes = ", $diffTime->minutes;  # not the same thing as above
say STDERR "seconds = ", $diffTime->seconds;  # not the same thing as above

say "Elapsed time: ", $diffTime->pretty;

这可能会打印如下内容：

150
0.0416666666666667
2.5
150
2 minutes, 30 seconds

Answer 2

$difftime 是两个“纪元时间”（自 1970 年 1 月 1 日午夜 GMT 起的秒数）之间的差异，但这并不能使其成为纪元时间。所以它并不是 localtime() 真正合适的参数。您最好自己计算 h/m/s 细分：

($sec,$min,$hour) = ($difftime % 60, int($difftime/60) % 60, int($difftime/3600));

Answer 3

您想要使用 gmtime 函数而不是 localtime 函数。

由于纪元日期为 1970 年 1 月 1 日 00:00:00 GMT/UTC，因此调用 localtime(0) 将为您提供您<的纪元日期/em> 时区。

编辑：感谢您的跟进。正如已经提到的，这仅在您测量的时间间隔小于 24 小时时才有效。 localtime 和 gmtime 函数实际上都返回日期值：秒、分钟、小时、月份中的某一天、月份、年份、年份中的某一天，以及是否时间进入夏令时。当然，除了日期之外，秒、分钟和小时之外的所有内容都没有意义。

Answer 4

这与说由于 ℉ → ℃ 需要转换 C = (F - 32) * 5/9 相同的问题，如果温度升高 5 ℉，则必须与以下内容相同变暖 -15 ℃，因为这是当你将 5 华氏度代入明显但错误的公式时得到的数字。

明白为什么这没有意义吗？变暖 5 华氏度与变冷 15 ℃ 完全不同！

你在你的时代也犯过同样的错误。当您减去自该纪元以来每个测量秒数的数量时，您不会得到一个也测量自该纪元以来经过的秒数的结果！

您只能在纪元秒（即自纪元以来经过的秒数）上调用 localtime 或 gmtime ，而不能在一般秒上调用。否则，您必须自己进行除法，或者使用模块来找出减法结果中有多少个更大的单位。