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);

感谢您的时间

Answer 1

我会写这样的东西：

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