在我的脚本中,我需要遍历给定开始日期和结束日期的一系列日期。我怎样才能在 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/

10-13 02:06