解决方法
对于使用日期的所有操作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: %s\n",$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