[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

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

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

回复 4# sxw


成功了,多谢。

TOP

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

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

评分人数

    • Perl: 乐于助人技术 + 1

TOP

回复 2# sxw


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

TOP

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

TOP

返回列表