(jeffa) 3Re: getting the First day of the month

I see now. You want a list of 12 dates, each one the first Monday of the month. Personally, i am not a huge fan of Date::Calc, and prefer Time::Piece and DateTime. Here is some code that uses the latter:

use strict;
use warnings;
use DateTime;

my $year = DateTime->now->year;
for my $month (1..12) {
   my $dt = DateTime->new(year => $year, month => $month);
   $dt->add(days => 1) until $dt->day_of_week == 1;
   printf "First monday of %02d/%d is %s\n",
      $dt->month, $dt->year, $dt->day,
   ;
}

__END__
First monday of 01/2003 is 6
First monday of 02/2003 is 3
First monday of 03/2003 is 3
First monday of 04/2003 is 7
First monday of 05/2003 is 5
First monday of 06/2003 is 2
First monday of 07/2003 is 7
First monday of 08/2003 is 4
First monday of 09/2003 is 1
First monday of 10/2003 is 6
First monday of 11/2003 is 3
First monday of 12/2003 is 1
[download]

(psst ... that was pzbagel you replied to, not vroom ;))

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Comment on (jeffa) 3Re: getting the First day of the month Download Code