确定自上次时间戳以来经过的时间

Question

我想向文件写入时间戳，然后能够确定当前时间是否距离该时间戳 使用：

open my $fh, '>', '~/.time_from_run';  
my $timestamp = localtime(time);    
print $fh $timestamp;  
close $fh;  

打印出一个字符串。最好的方法是什么？

Answer 1

最简单的方法是从time() 而不是localtime() 写入输出（顺便说一下，localtime(time) 是没有意义的——如果你省略localtime() 的参数，它将使用time() 作为默认值）。这将为您提供自 1970 年初以来的秒数（这是一个非常大的数字 - 目前为 1503061737）。然后，您可以读回该数字并将其与 time() 的当前值进行比较。

这种方法的（轻微）缺点是您从time() 返回的数字不容易被人类理解。如果您想阅读和理解 .time_from_run 中的值，那么您可以妥协并以易于理解的格式写入时间戳（ISO-8601 是显而易见的选择。

use Time::Piece;

open my $fh, '>', '~/.time_from_run' or die $!;

print $fh localtime->datatime;

然后您可以像这样阅读和比较您的时间：

use Time::Piece;
use Time::Seconds;

open my $fh, '<', '~/.time_from_run' or die !$;

chomp(my $then_str) = <$fh>;

my $then = Time::Piece->strptime('%Y%m%dT%H:%M:%S', $then_str);

if (localtime - $then < ONE_MINUTE) {
  print "Elapsed time is less than a minute\n";
}