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

one-liner version


perl -MDateTime::Event::Recurrence -le "  print $_->ymd, chr(32) for  
+DateTime::Event::Recurrence->weekly->as_list( start => DateTime->new 
+( year => 2008 ), end => DateTime->new ( year => 2009 ) ); "

perl -MDateTime::Event::Recurrence -le '  print $_->ymd, chr(32) for  
+DateTime::Event::Recurrence->weekly->as_list( start => DateTime->new 
+( year => 2008 ), end => DateTime->new ( year => 2009 ) ); '
[download]

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