批处理之家 - Powered by Discuz! Board

标题: [问题求助] [已解决]Perl怎样遍历指定范围内的月份？ [打印本页]

作者: Perl 时间: 2011-10-22 22:46 标题: [已解决]Perl怎样遍历指定范围内的月份？

本帖最后由 Perl 于 2011-10-23 23:37 编辑

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

作者: sxw 时间: 2011-10-22 23:18

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

作者: Perl 时间: 2011-10-22 23:26

回复 2# sxw

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

作者: sxw 时间: 2011-10-23 00:06

本帖最后由 sxw 于 2011-10-23 13:43 编辑

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

#!/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 时间: 2011-10-23 23:37

回复 4# sxw

成功了，多谢。

欢迎光临批处理之家 (http://bbs.bathome.net/)