Re: What is the best way to get a list of all Mondays until the end of the year?

use Date::Manip;
for my $date (ParseRecur("every monday", "", ParseDate("today"), Parse
+Date("dec 31"))) {
  print "$date\n"; # or format it using UnixDate($date, $format)
}
[download]

-- Randal L. Schwartz, Perl hacker

Comment on Re: What is the best way to get a list of all Mondays until the end of the year? Download Code