Hi Monks!
I am trying to build a list of the days in the current month using Time::Piece, but I am stuck, here is what I am trying to do or a prototype of it:
#!/usr/bin/perl
use strict;
use warnings;
use Time::Piece;
my $t = Time::Piece->new;
my $month = $t->mon;
my $year = $t->year;
for my $days ($month) {
my $dates = Time::Piece->strptime("$month/$days/$year" . '01', '%
+m%d%Y%')->wday);
}
At the end I am trying to print a list for the current month as:
03/01/2014
03/02/2014
...
03/31/2014
Thanks for the help!