Please read this site's FAQ for info on how to post. Please check the info on formatting your post. Your post is hard to read.

I'm not sure exactly what you are asking for, but it sounds like you want code that do something based on the last 31 days each day. Even if I am on the wrong track, checking out these functions should help you:

1. time
2. localtime
3. Time::Local's timelocal

Now for some (untested) code.

#Loop 31 times
foreach (1..31)
{   # Set date to $_ days in the past.
    my $date = time() - $_*24*60*60 
    my ($day,$month,$year) = localtime($date)[3,4,5];
    # cleanup raw localtime output  
    $month++; $year = substr ($year, -2);
    
    # Print niceish (whitespace instead of 0) MM/DD/YY dates to string
    $date = sprintf "%2d/%2d/%2d", $month,$day,$year; #I'm reusing $da
+te, I don't need its old value.
    # Fix whitespace. $date will now hold MM/DD/YY data.
    $date=~s/\s/0/g;
    
    print "MM/DD/YY:\t$date\n";    
}
[download]

Here's a truncated bit of output:

MM/DD/YY:       06/17/01
MM/DD/YY:       06/16/01
MM/DD/YY:       06/15/01
MM/DD/YY:       06/14/01
[download]

I hope this helps.

TGI says moo

It seems to me the easiet way to deal with this is to use a Julian days scheme. Use the search utility --> 'Julian days' The results point to many different CPAN modules for conversion back and forth.

You would simply add and subtract 31 from today's Julian day and convert to normal dates to get your range. It's unclear what you want to do with the range, so that's all I'll say.

using a mix of all the above Date::Calc, and Time::Local should enable you to knock something together very simply and quickly. All are available for download from the CPAN