在Perl中建议使用日期算术的方法是什么?
比如我想知道三天前的日期(今天= 2010-10-17和今天 – 3天= 2010-10-13).你会如何在Perl中做到这一点?
解决方法
您可以使用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);