如何计算Perl中两个日期之间的天数？

以下是使用DateTime库的几种不同方式计算和显示日期/时间差异的代码片段.打印的最后一个答案是你想要的答案,我想.

#!/usr/bin/perl -w

use strict;

use DateTime;
use DateTime::Format::Duration;

# XXX: Create your two dates here
my $d1 = DateTime->new(...);
my $d2 = DateTime->new(...);

my $dur = ($d1 > $d2 ? ($d1->subtract_datetime_absolute($d2)) : 
                       ($d2->subtract_datetime_absolute($d1)));

my $f = DateTime::Format::Duration->new(pattern => 
  '%Y years,%m months,%e days,%H hours,%M minutes,%S seconds');

print $f->format_duration($dur),"n";

$dur = $d1->delta_md($d2);

my $dy = int($dur->delta_months / 12);
my $dm = $dur->delta_months % 12;
print "$dy years $dm months ",$dur->delta_days," daysn";
print $dur->delta_months," months "," daysn";
print $d1->delta_days($d2)->delta_days," daysn";