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

Perl

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

sxw

1. 
   
2. for (201010..201012,201101..201110) {
   
3. ....
   
4. }
   

复制代码

Perl

回复 2# sxw


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

sxw

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

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. print "设置一个开始月份(eg:10)";
   
6. chomp (my $inital=<STDIN>);
   
7. print "设置一个结束月份(eg:12)";
   
8. chomp (my $end=<STDIN>);
   
9. for (2010..2011) {
   
10.         until($inital >12) {
    
11.                 printf "%4d%02d\n",$_,$inital;
    
12.                 $inital++;
    
13.                 last  if $_==2011 && $inital==$end+1;
    
14.                 }
    
15. $inital=1 if $inital >12;
    
16. }
    

复制代码

Perl

回复 4# sxw


成功了，多谢。