どのように2つの境界の間の日付を印刷するには、日付

Question

I持ち形式で2日付：

2007年12月27日

2010年3月12日

ハウツー印刷この2つの日付の間（サイクルにおける）すべての日？

Answer 1

は、私はあなたが既に答えを受け入れてきたことを知っているが、それはかなり無骨な古い日付:: 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); 
} 

Answer 2

Date::Calcを使用してください。

use Date::Calc qw(Delta_Days Add_Delta_Days); 

my @begin = reverse split /\./, '27.12.2007'; 
my @end = reverse split /\./, '12.03.2010'; 

my $delta = Delta_Days(@begin, @end); 

for my $i (0..$delta) { 
    printf "%d-%02d-%02d\n", Add_Delta_Days(@begin, $i); 
}