如何使用perl查找给定日期的下一个日期？

Question

我需要找到任何日期的下一个日期.

use strict;

my $entered_date="2011-11-30";

在上面的代码中我想找到日期的下一个日期,它存储在$ entered_date变量中......请分享您的解决方案....

提前致谢...

Answer 1

use Time::Piece;
use Time::Seconds;
my $date = Time::Piece->strptime($entered_date, "%Y-%m-%d");
$date += ONE_DAY;
return $date->strftime("%Y-%m-%d");

[编辑:改变%F到%Y-%m-%d用于Wintendo兼容性.谢谢,@ bvr]

Answer 2

perl -MDate::Calc -E ' use Date::Calc qw(Add_Delta_Days);say join "-", Add_Delta_Days(2011,11,30,1);'

2011-12-1

在脚本中（不是很安全）

use Date::Calc qw(Add_Delta_Days);
my $entered_date = "2011-12-31";
print join "-", Add_Delta_Days(split(/-/,$entered_date),1);'

2012年1月1日