perl - Perl 将上次运行时间写入文件

Question

（perl 新手）

我正在尝试更新现有的 perl 脚本以在上次运行时存储在文件中，以便在下次运行时“自”该日期以来执行某些操作。

有没有一种安全的方法可以将它存储在一个文件中，然后我可以再次读入时间戳？

我发现了如何写文件

# Open for writing
open(MYFILE,">$filepath/$filename") || "> ERROR: Couldn't open file for writing\n";
print MYFILE $result;
close MYFILE;

以及如何将时间作为字符串

my ($sec, $min, $hour, $day, $mon, $year) = localtime();
$LAST_RUN_DATETIME=strftime( "%Y/%m/%d %T", $sec, $min, $hour, $day, $mon, $year);

谢谢你的时间

score 1 · Accepted Answer

我可能会写这样的东西：

open(my $handle, ">", "$filepath/$filename") or die "Couldn't open $file";
print $handle scalar(localtime());
close($handle);

并且阅读它只是：

open(my $handle, "$filepath/$filename") or die "Couldn't open $file";
my $timestamp = <$handle>;

该时间戳将采用以下形式：(day of the week) mmm (day of the month) hh:mm:ss yyyy

1 回答 1