在我的脚本中，我需要遍历开始date和结束date的一系列date。 我怎样才能在Perl中做到这一点？
使用DateTime模块。 这是一个简单的例子，列出了前十天：
use 5.012; use warnings; use DateTime; my $end = DateTime->now; my $day = $end->clone->subtract( days => 10 ); # ten days ago while ($day < $end) { say $day; $day->add( days => 1 ); # move along to next day }
更新 （看到您的评论/更新后）：
解析日期字符串，然后查看模块CPAN上的DateTime::Format 。
下面是一个使用DateTime::Format::DateParse来解析YYYY / MM / DD的例子：
use DateTime::Format::DateParse; my $d = DateTime::Format::DateParse->parse_datetime( '2010/06/23' );
一个简单的方法是使用Date::Simple模块，该模块使用操作符重载：
use strict; use warnings; use Date::Simple; my $date = Date::Simple->new ( '2010-01-01' ); # Stores Date::Simple object my $endDate = Date::Simple->today; # Today's date while ( ++$date < $endDate ) { print ( $date - $endDate ) , "day", ( ( $date-$endDate) == 1 ? '' : 's' ), " ago\n"; }
use DateTime::Format::Strptime qw(); my $start = DateTime::Format::Strptime->new(pattern => '%Y/%m/%d')->parse_datetime('2010/08/16'); my $end = DateTime::Format::Strptime->new(pattern => '%Y/%m/%d')->parse_datetime('2010/11/24'); while ($start < $end) { $start->add(days => 1); say $start->ymd('/'); }
我喜欢使用strftime将我的日期正常化的事实：
#!/usr/bin/perl use strict; use warnings; use POSIX qw/strftime/; my $start = "2010/08/16"; my $end = "2010/09/16"; my @time = (0, 0, 0); my ($y, $m, $d) = split "/", $start; $y -= 1900; $m--; my $offset = 0; while ((my $date = strftime "%Y/%m/%d", @time, $d + $offset, $m, $y) le $end) { print "$date\n"; } continue { $offset++; }
你可以试试Date :: Calc :: Iterator
# This puts all the dates from Dec 1, 2003 to Dec 10, 2003 in @dates1 # @dates1 will contain ([2003,12,1],[2003,12,2] ... [2003,12,10]) ; my $i1 = Date::Calc::Iterator->new(from => [2003,12,1], to => [2003,12,10]) ; my @dates1 ; push @dates1,$_ while $_ = $i1->next ;
如果安装额外的perl模块是不可取的，可以使用这种方法，基于核心perl库POSIX ：
#!/usr/bin/perl use strict; use warnings; use POSIX qw(strftime); # CREATE CALENDAR my @Calendar = (); my $years = 3; my @Now = localtime(); # An array of 9 date-time parameters. for my $count ( 0 .. ( 365 * $years ) ) { # If date is January 1st, manual shift to December 31st is needed, # because days ([yday][2]) are counted from January 31st and never shift back one year. if( $Now[4] == 0 && $Now[3] == 1 ) { unshift @Calendar, strftime( "%Y-%m-%d", @Now ); $Now[5] --; # Reduce by one the sixth array element #5 - year. $Now[4] = 11; # Set fifth array element № 4 - to December. $Now[3] = 31; # Set fourth array element № 3 - to 31st. } else { unshift @Calendar, strftime( "%Y-%m-%d", @Now ); $Now[3] --; } } # Print out. my $size = @Calendar; for (my $i = 0; $i < $size; $i++) { print $Calendar[$i]."\n"; }