perl – 确定日期范围内日期的好方法是什么？

发布时间：2020-12-15 23:30:26 所属栏目：大数据来源：网络整理

导读：什么是一个好的Perl模块(或好的方法),它返回开始日期和结束日期之间的所有有效日历日期？例如,如果我将1/29/2009作为开始日期而2/3/2009作为结束日期,那么我希望它返回1/30 / 2009,1 / 31 / 2009,2 / 1的数组/ 2009年和2009年2月2日.必须有一个好的Perl模块

什么是一个好的Perl模块(或好的方法),它返回开始日期和结束日期之间的所有有效日历日期？

例如,如果我将1/29/2009作为开始日期而2/3/2009作为结束日期,那么我希望它返回1/30 / 2009,1 / 31 / 2009,2 / 1的数组/ 2009年和2009年2月2日.必须有一个好的Perl模块已经完成了这个并且占了闰年,几个月,但我找不到它.

谢谢你的建议！

解决方法

Date::Manip似乎是Perl中的规范日期模块.它有一个奇怪的API,但它的工作原理.以下是使用ParseRecur函数执行所需操作的示例：

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

use Date::Manip;
use Data::Dumper;

my ($start,$end) = qw(2009-01-29 2009-02-03);

# Exclude start date
$start = DateCalc($start,"+1 day");

# y:m:w:d:h:m:s
my @dates = ParseRecur('0:0:0:1:0:0:0',$start,$end);

for my $date (@dates) {
    print UnixDate($date,"%Y-%m-%dn");
}

（编辑：李大同）

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