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

前端之家收集整理的这篇文章主要介绍了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-%d\n");
}

猜你在找的Perl相关文章