从perl的日期减去5个月

Question

我需要从perl的当前日期减去5个月。 例如：

2014-01-30 - 5月= 2013-08-30

在计算具有不同长度的月份时应该准确，例如2月。

Greets，Max。

Answer 1

这样做的简单方法是使用Badger::Timestamp

use Badger::Timestamp ;

 my $stamp = Badger::Timestamp->new(
    year    => 2014,
    month   => 1,
    day     => 30
 );
 $stamp->adjust( months => -5  );
 print "Adjusted time stamp is : $stamp \n" ;