Re: Moving View of Months

[david]

Kevin Old wrote:

> Hello everyone,
> 
> I'm trying to create an array of months that will be a continuous
> "Moving View of Months".  I will have an page served to users that has a
> table of the past 12 months.  For instance, if I were to pull up the
> page today, it would display Apr 02 - Mar 03.  Next month it will be May
> 02 - Apr 03.
> 

not sure if i am reading your question correctly, does the following do what 
you want:

#!/usr/bin/perl -w
use strict;

use Date::Manip;

my $today = ParseDate('now');
my $stop  = UnixDate($today,'%m/%Y');
my $pass  = ParseDate('-12 months');
my %range;

while(1){
        $pass = DateCalc($pass,"1 month");
        my $should_stop = UnixDate($pass,'%m/%Y');
        $range{$should_stop} = 1;
        last if($should_stop eq $stop);
}

print "$_\n" for(sort { my($pmonth,$pyear) = $b =~ m#(.+)/(.+)#;
                        my($month,$year)   = $a =~ m#(.+)/(.+)#;
                        $year cmp $pyear || $month cmp $pmonth
                        } keys %range);

__END__

prints:

04/2002
05/2002
06/2002
07/2002
08/2002
09/2002
10/2002
11/2002
12/2002
01/2003
02/2003
03/2003

david

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]