perl - Perlで今日(ローカルタイムゾーン)の最小のエポック時間を見つけるにはどうすればよいですか?

Question

Perl の時間関数は素晴らしいですが、今日の最小のエポック値を見つけるにはどうすればよいですか? エポックは秒単位であるため、特定の日に対応する多くのエポック値があると想像できます。自分のタイムゾーンで最低を見つけるにはどうすればよいですか?

Answer 1

の使用はサポートされていませんtimelocalが、必要な情報を取得するために問題なく使用できるはずです。

use Time::Local qw( timelocal );
my $epoch = timelocal(0,0,0, (localtime)[3,4,5]);

• 真夜中が 2 時ある日があるタイム ゾーンを知らないので、それをテストすることはできません。
• 真夜中のない日 (2013-10-20 in America/Sao_Paulo) のタイム ゾーンでテストしたところ、問題なく動作しました。