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

Date::Calc包具有相应的功能。使用Date_to_Time和Time_to_Date转换为/从纪元时间转换，并使用Add_Delta_YM添加-6个月。

Answer 3

粗糙准备好了吗？

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