在Perl中进行日期运算的推荐方法是什么？

Question

在Perl中进行日期运算的推荐方法是什么？

例如，假设我想知道三天前和今天的日期(其中today = 2010-10-17，today - 3 days = 2010-10-13)。在Perl中如何做到这一点呢？

Answer 1

您可以使用DateTime和DateTime::Duration

http://search.cpan.org/dist/DateTime/lib/DateTime/Duration.pm

或者使用unix时间戳：

my $now = time();
my $threeDaysAgo = $now - 3 * 86400;
my ($day, $mon, $year) = (localtime($threeDaysAgo))[3, 4, 5];
printf("Three days ago was %04d-%02d-%02d", $year+1900, $mon+1, $day);

Answer 2

请参见DateTime on CPAN (或here)。

Answer 3

有很多不同的日期和时间操作模块。

其中包括：

• Date::Calc -和function
• Date::Manip function
• DateTime

-以及Add_Delta_Days function

• DateTime

所有这些都是深思熟虑的。除此之外，还有很多其他的。这在很大程度上取决于你想做的算术。DateTime可能是最严格的，但是Date::Calc和Date::Manip可能更容易处理您需要的工作。