in reply to Re: GD::graph time-scale option?
in thread GD::graph time-scale option?

hi,
guess I'd like to make a _new_ list of all dates occuring between start_date and end_date. Subsequently mix the two lists (one with the initial data and the new one) and do some filtering to get rid of the double occurences and put 'undef' where there is no data/value.
I'll be posting the final script if I've done what I describe above but in the meantime I'm trying to find out the following:

What is the best way to get an array with dates between start_date and end_date while using date::manip?

thanks,
Gert

Replies are listed 'Best First'.
Re^3: GD::graph time-scale option?
by Krambambuli (Curate) on May 10, 2007 at 09:11 UTC
    What is the best way to get an array with dates between start_date and end_date while using date::manip?

    Something like the following might be what you want: 
    #!/usr/bin/perl

use strict;
use warnings;

use Date::Manip;

my @dates = ParseRecur( '0:0:0:1:0:0:0',  # every day
                        '100 days ago',   # base before start_date
                        'last Monday',    # start_date
                        'next Friday' );  # end_date
foreach my $date ( @dates ) {
    print "$date\n";
}

    [download]
    Hth
[reply]
[d/l]
      Thanks!
      just came up with something like: 
      my $start = '01/01/2006';
my $end= '01/21/2006' ;

my @days = ParseRecur("0:0:0:1:0:0:0", $start,$start,$end);
 
print "@days\n";

      [download]
      Just can't get the formatting right.

      How to limit the output to something like yyyymmdd?
      It'l be with something like %Y%m%d. But where do I put this. It'll be very obvious sorry to ask. If I've got this I can get the finish.
      Gert
[reply]
[d/l]
[select]
        Maybe something like 
        foreach my $day ( @days ) {
    print UnixDate( $day, '%Y%m%d'), "\n";
}

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom