maybe a mistake in 'Learning Perl'

最近开始学习perl，网上查加打听知道”Learning Perl”这本书很不错，被亲切地称为“小骆驼”。我读的是东南大学书版社第六版的影印版。今天看到chap11，遇到一个问题死活整不出来想要的结果。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#!/usr/bin/perl
use DateTime; 

my $dt1 = DateTime->new(
	year => 1987,
	month => 12,
	day => 18,
	);
my $dt2 =DateTime->new(
	year => 2013,
	month => 5,
	day => 1,
	);
my $duration = $dt2 - $dt1;
my @units = $duration->in_units( qw(years months days) );  #重点就在这里，书里面是单数，结果打印出来全是0，改成复数就ok了
printf "%d years, %d months, and %d days\n", @units;

今天到此收工， 明天还要早起。