perl - Perl とエポックタイムの質問

Question

perl から現在のエポック時間を取得し、6 か月前のエポック時間を見つけるにはどうすればよいですか?

ファイルの作成日を比較して、6 か月以上経過しているかどうかを確認する必要があります。

Answer 1

差は、次を使用して計算できますDateTime。

use DateTime;

my $dt = DateTime->now;  # or if you have epoch: DateTime->from_epoch( 'epoch' => $epoch );
$dt->subtract( DateTime::Duration->new( 'months' => 6 ) );

Answer 2

ラフで準備はできていますか？

perl -le '$sixm = 30.5*6; for ( glob("*") ) { print "delete $_" if -M > $sixm }'