如何在perl中获得两个日期之间的年份差异

Question

如何获得perl中两个日期之间的年份差异,如下面的日期

my $date1 = '2012-08-29T00:00:00.0000Z'
my $date2 = '2010-08-29T00:00:00.0000Z'

需要帮助并提供建议.谢谢

Answer 1

use DateTime::Format::RFC3339 qw( );
my $format = DateTime::Format::RFC3339->new();

my $dt1 = $format->parse_datetime('2010-08-29T00:00:00.0000Z');
my $dt2 = $format->parse_datetime('2012-08-29T00:00:00.0000Z');
my $dur = $dt2 - $dt1;

say sprintf "%d years", $dur->in_units('years');

Ref:DateTime,DateTime :: Duration,DateTime :: Format :: RFC3339