在Perl的两个日期之间循环的最佳方式是什么？

发布时间：2020-12-15 21:27:34 所属栏目：大数据来源：网络整理

导读：我在Perl中想知道在两个日期之间循环的最佳/最清晰的方法是什么？在cpan有很多模块处理它,但是有什么经验法则可以在两个日期之间进行迭代？谢谢, 解决方法对于使用日期的所有操作DateTime可能是最好的模块.要使用自己的增量获取两个日期之间的所有日期,请

我在Perl中想知道在两个日期之间循环的最佳/最清晰的方法是什么？
在cpan有很多模块处理它,但是有什么经验法则可以在两个日期之间进行迭代？

谢谢,

解决方法

对于使用日期的所有操作DateTime可能是最好的模块.要使用自己的增量获取两个日期之间的所有日期,请使用以下内容：

#!/usr/bin/env perl
use strict;
use warnings;
use DateTime;

my $start = DateTime->new(
    day   => 1,month => 1,year  => 2000,);

my $stop = DateTime->new(
    day   => 10,);


while ( $start->add(days => 1) < $stop ) {
    printf "Date: %sn",$start->ymd('-');
}

这将输出：

Date: 2000-01-02
Date: 2000-01-03
Date: 2000-01-04
Date: 2000-01-05
Date: 2000-01-06
Date: 2000-01-07
Date: 2000-01-08
Date: 2000-01-09

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!