如何在2个边界日期之间打印日期

Question

我有2个日期格式:

2007年12月27日

12.03.2010

如何打印这两个日期之间的所有日子(周期)？

Answer 1

我知道你已经接受了答案,但它使用了相当笨重的旧Date :: Calc模块.现在,大多数人会建议使用DateTime.

#!/usr/bin/perl

use strict;
use warnings;

use DateTime;

my %start;
@start{qw[day month year]} = split /\./, '27.12.2007';
my %end;
@end{qw[day month year]} = split /\./, '12.03.2010';

my $start = DateTime->new(%start);
my $end   = DateTime->new(%end);

my $curr = $start;

while ($curr <= $end) {
  print $curr->ymd, "\n";
  $curr->add(days => 1);
}