我需要找到任何日期的下一个日期。
use strict;
my $entered_date="2011-11-30";
在上面的代码中,我想找到存储在 $entered_date 变量中的日期的下一个日期...请分享您的解决方案....
提前致谢...
最佳答案
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]
关于perl - 如何使用perl找到给定日期的下一个日期?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/9293700/