日期循环扫描是个常用的东西。perl简单的日期循环【备用】

#!/usr/bin/perl #use conf;use POSIX qw(strftime); my $i=1;for($i=103;$i>0;$i--){my $day_Ymd = strftime("%Y%m%d", localtime(time - 86400 * $i));my $day_ymd = strftime("%y%m%d", localtime(time - 86400 * $i));#doing}

#!/usr/bin/perl  use strict;  my $i=1;for($i=103;$i>0;$i--){        my $showdate= `date -d '$i days ago' +%Y%m%d`;        chomp $realdate;        print $showdate,"\n";#doing}