计算perl中给定日期的下一个日期

Question

如何计算perl中给定日期的下一个日期。

实施例。如果给定的日期是2010-12-31那么 它应该返回2011-01-01 /

提前致谢。

Answer 1

my $format = DateTime::Format::Strptime->new(
    pattern  => '%Y-%m-%d',
    on_error => 'croak',
);

my $dt = $format->parse_datetime('2010-12-31');
$dt->add( days => 1 );
say $format->format_datetime($dt);

Answer 2

Date :: Calc有一个执行此操作的例程以及更多日期计算例程

您想使用Date :: Calc

中的Add_Delta_Days函数