1

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

御時間ありがとうございます

4

1 に答える 1

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

于 2012-10-22T10:37:49.707 に答える