perl - 如何使用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]