在 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

请参阅CPAN 上的日期时间（或此处）。

Answer 3

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

其中包括：

• Date::Calc - 和 Add_Delta_Days 函数
• Date::Manip - 和 DateCalc 函数
• DateTime

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

Answer 4

这是迄今为止我遇到的功能最多的模块： 日期::Manip