从perl中的日期减去5个月[重复]

Question

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

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

在计算不同长度的月份时应该是准确的，例如二月。

您好，马克斯。

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" ;