[问题求助] [已解决]Perl怎样遍历指定范围内的月份？

Perl

设置一个开始月份：201010
设置一个结束月份：201110
怎样输出这段时间内所有的月份？
201010
201011
201012
201101
...
201110

Perl

回复 4# sxw


成功了，多谢。

sxw

试着写了一下：年份，月份可以自己修改

#!/usr/bin/perl
use strict;
use warnings;
print "设置一个开始月份(eg:10)";
chomp (my $inital=<STDIN>);
print "设置一个结束月份(eg:12)";
chomp (my $end=<STDIN>);
for (2010..2011) {
	until($inital >12) {
		printf "%4d%02d\n",$_,$inital;
		$inital++;
		last  if $_==2011 && $inital==$end+1;
		}
$inital=1 if $inital >12;
}
复制代码

Perl

回复 2# sxw


谢谢。顶楼数据只是举个例子，如果时间跨度是100年呢？

sxw

for (201010..201012,201101..201110) {
 ....
}
复制代码