在我的脚本中,我需要遍历给定开始日期和结束日期的一系列日期。我怎样才能在 Perl 中做到这一点?
最佳答案
使用 DateTime
模块。这是一个简单的例子,列出了前十天:
use 5.012;
use warnings;
use DateTime;
my $end = DateTime->now;
my $day = $end->clone->subtract( days => 10 ); # ten days ago
while ($day < $end) {
say $day;
$day->add( days => 1 ); # move along to next day
}
更新 (在看到您的评论/更新后):
要解析日期字符串,请查看模块 CPAN 上的
DateTime::Format
。下面是一个使用
DateTime::Format::DateParse
解析 YYYY/MM/DD 的例子:use DateTime::Format::DateParse;
my $d = DateTime::Format::DateParse->parse_datetime( '2010/06/23' );
关于windows - 如何遍历日期范围?,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/3493880/