日期循环扫描是个常用的东西。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
}