如何用perl語句得到日期列表

xinganling

需要兩年的日期列表如下：
20080101
20080102
20080103
...
20080228
20080229
20080301
...

一條一條寫太費(fèi)時(shí)，而且太長(zhǎng)，有沒有辦法用perl語句來實(shí)現(xiàn)，先謝了

flw

當(dāng)然是循環(huán)了。一天是 24 小時(shí)。
你算出第一天的時(shí)間，然后循環(huán)，每次加 24 小時(shí)，然后再轉(zhuǎn)換成你想要的格式就行了。

hfahe

恩  根據(jù)時(shí)間戳構(gòu)造吧～～

楓影誰用了

[root@localhost perl]# perl daylist.pl
2009-04-22
2009-04-21
2009-04-20
2009-04-19
2009-04-18
2009-04-17
2009-04-16
2009-04-15
2009-04-14
2009-04-13
[root@localhost perl]# cat daylist.pl
#!perl
use Date::Simple (':all');

my $DATE_START=today() -1;
my $MONTH;
my $DATE_END;

my $i_ = 10;
while ( $i_ >= 1 ){
my $date  = Date::Simple->new("$DATE_START");
$DATE_END=$date + $i_;
print "$DATE_END\n";
$i_--;
}
[root@localhost perl]#

xinganling

C:\>./daylist.pl
Can't locate Date/Simple.pm in @INC (@INC contains: C:/Perl/site/lib C:/Perl/lib
.) at C:\daylist.pl line 2.
BEGIN failed--compilation aborted at C:\daylist.pl line 2.

C:\>
第二行是：
use Date::Simple (':all');
是Date::Simple不存在嗎?  如何看Date::Simple是否存在？

hfahe

汗。。。裝模塊把。。

shaneqi

http://search.cpan.org/~izut/Date-Simple-3.03/lib/Date/Simple.pm

MMMIX

原帖由 xinganling 于 2009-4-13 14:50 發(fā)表
第二行是：
use Date::Simple (':all');
是Date::Simple不存在嗎?

是的。

如何看Date::Simple是否存在？

直接用它，不存在的話 perl 會(huì)告訴你的。

youzhengchuan

隨便寫幾個(gè)for不久實(shí)現(xiàn)了嗎？

youzhengchuan

1 for($year = 2008;$year <= 2009 ;$year++){
      2         for($month = 1;$month <= 12;$month++){
      3                 for($day = 1;$day <= getMaxDay($year,$month);$day++){
      4                         print "$year-$month-$day\n";
      5                 }
      6         }
      7 }
      8
      9 sub getMaxDay() {
     10         return 30;#你自己寫一個(gè)算法來算得當(dāng)年當(dāng)月有多少天即可
     11 }