perl - 在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);