2006/5/16, Jerrad Pierce <[EMAIL PROTECTED]>:
What's the best way to iterate over Mondays, Tuesdays, and Thursdays between
two dates?
For some value of "best":
-------
use DateTime::Event::ICal;
my $dt1 = DateTime->today;
my $dt2 = $dt1->clone->add( months => 1 );
print "interval: $dt1 $dt2\n";
my $set = DateTime::Event::ICal->recur(
dtstart => $dt1,
until => $dt2,
freq => 'weekly',
byday => [ 'mo', 'tu', 'th' ],
);
my @days = $set->as_list;
print "days as list: @days\n";
print "days as iterator: ";
my $iter = $set->iterator;
while ( my $dt = $iter->next ) {
print ' ', $dt->datetime;
}
-------
- Flavio S. Glock
