perl - 如何在perl中计算2个unix时间戳之间的天数？

Question

有一些简单的方法可以计算 perl 中两个 unix 时间戳之间的天数， 例如，$time1= 1366601846 和 $time2 = 1366431011，因此输出为 2 天。

即使两个unix时间戳之间的差异只有两秒，也应该被视为1天的差异。

先谢谢了..

Answer 1

在欧洲/巴黎，这两个时间戳是

2013/04/20 06:10:11
2013/04/22 05:37:26

不清楚你想要什么。

在欧洲/巴黎，时间相差 1 天 23 小时 15 分钟。四舍五入就是2天。如果这是您想要的，您可以使用

use DateTime qw( );

my $dt1 = DateTime->from_epoch( epoch => 1366601846, time_zone => 'local' );
my $dt2 = DateTime->from_epoch( epoch => 1366431011, time_zone => 'local' );

my ($days, $minutes, $ns) = ($dt1 - $dt2)->in_units(qw( days minutes nanoseconds ));
++$days if $minutes || $ns;

print("$days\n");

在欧洲/巴黎，日历日期相差 2 天。如果这是您想要的，您可以使用

use DateTime qw( );

my $dt1 = DateTime->from_epoch( epoch => 1366601846, time_zone => 'local' );
my $dt2 = DateTime->from_epoch( epoch => 1366431011, time_zone => 'local' );

my $days = $dt1->delta_days($dt2)->in_units('days');

print("$days\n");

除以 24*60*60 并不总是有效，无论您的意思是什么。在这两种情况下，答案都取决于您指定的时区。