我怎么知道几周前的日期是什么？

Question

我试图根据我想要回去的周数来确定计算上一个日期的好方法.今天是2011年7月19日,所以如果我想回到5周,那么确定那个日期的最佳方法是什么？

Answer 1

DateTime::Duration 是你的朋友:

use strict;
use warnings;
use 5.010;

use DateTime;

my $now = DateTime->now(time_zone => 'local');
my $five_weeks = DateTime::Duration->new(weeks => 5);
my $five_weeks_ago = $now - $five_weeks;

say "Five weeks ago now it was $five_weeks_ago";

请注意,它允许您以问题为单位指定持续时间.