如何从今天开始计算一周前的日期

Question

我想用一种特定的格式从一天前开始计算一周前的日期并将其放入变量中.例如,今天是Nov 21st. 2014,我想打印出来:上周是2014-11-14.

我知道我们可以使用Date::Calc模块,但我不知道如何.

Answer 1

检查Time::Piece和Time::Seconds核心模块,

use Time::Piece;
use Time::Seconds;

my $t = localtime() - ONE_WEEK;
print $t->ymd;

产量

2014-11-14