我有 2 个日期格式:
2007 年 12 月 27 日
12.03.2010
如何打印这两个日期之间的所有天数(循环)?
最佳答案
我知道您已经接受了一个答案,但它使用了相当笨重的旧 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);
}
关于perl - 如何打印两个边界日期之间的日期,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/4375545/