List of days in current month

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

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);

}
[download]

At the end I am trying to print a list for the current month as:

03/01/2014
03/02/2014
...
03/31/2014
[download]

Thanks for the help!

Comment on List of days in current month Select or Download Code

Replies are listed 'Best First'.
Re: List of days in current month by toolic (Bishop) on Mar 13, 2014 at 18:38 UTC
`use strict; use warnings; use Time::Piece qw(); my $t = Time::Piece->new(); my $month = $t->mon; my $year = $t->year; my $lday = $t->month_last_day; for (1 .. $lday) { printf "%02d/%02d/%04d\n", $month, $_, $year; } __END__ 03/01/2014 03/02/2014 ... 03/31/2014` [download]	[reply] [d/l]
Re^2: List of days in current month by Anonymous Monk on Mar 13, 2014 at 19:33 UTC
Thanks, that pointed me to the right direction: `#!/usr/bin/env perl use strict; use warnings; use Time::Piece qw(); my $t = Time::Piece->new(); my $month = $t->mon; my $year = $t->year; my $lday = $t->month_last_day; my @dates = map sprintf( "%02d/%02d/%04d", $month, $_, $year ), 1 .. $ +lday; foreach my $date(@dates) { print $date."\n"; }` [download]	[reply] [d/l]
Re: List of days in current month by Limbic~Region (Chancellor) on Mar 13, 2014 at 18:36 UTC
Anonymous Monk, You should read the friendly manual since the methods you are using don't do what you want. Here is a hint: $t->month_last_day() and possibly $t->mdy("/"). Cheers - L~R	[reply]
Re: List of days in current month by ambrus (Abbot) on Apr 18, 2014 at 12:39 UTC
Try to do the calculations with the Date::Manip module. `use warnings; use strict; use Date::Manip::Date 6.30; my $today = Date::Manip::Date->new("today"); my $month_first = $today->new($today->printf("%Y-%m-01")); my $next_month_first = $month_first->calc($today->new_delta("+1 month" +)); my $offset = $today->new_delta("+1 day"); for (my $day = $month_first; $day->cmp($next_month_first) < 0; $day = $day->calc($offset)) { print $day->printf("%m/%d/%Y\n"); } __END__` [download] This outputs: `04/01/2014 04/02/2014 04/03/2014 04/04/2014 04/05/2014 04/06/2014 04/07/2014 04/08/2014 04/09/2014 04/10/2014 04/11/2014 04/12/2014 04/13/2014 04/14/2014 04/15/2014 04/16/2014 04/17/2014 04/18/2014 04/19/2014 04/20/2014 04/21/2014 04/22/2014 04/23/2014 04/24/2014 04/25/2014 04/26/2014 04/27/2014 04/28/2014 04/29/2014 04/30/2014` [download]	[reply] [d/l] [select]
Re: List of days in current month by Lennotoecom (Pilgrim) on Mar 14, 2014 at 06:59 UTC
As an option `($m, $d) = (localtime)[4, 3]; $b = time - ($d * 86400); while((localtime($b+=86400))[4] == $m){ print "",(localtime($b))[3],"\n"; }` [download]	[reply] [d/l]
Re^2: List of days in current month by Anonymous Monk on Mar 14, 2014 at 14:14 UTC
Not every day has 86400 seconds.	[reply]
Re^3: List of days in current month by Lennotoecom (Pilgrim) on Mar 14, 2014 at 15:06 UTC
Which ones dont?	[reply]
Re^4: List of days in current month by choroba (Cardinal) on Mar 14, 2014 at 15:34 UTC
Re^5: List of days in current month by Lennotoecom (Pilgrim) on Mar 14, 2014 at 18:03 UTC
Re^4: List of days in current month by runrig (Abbot) on Mar 14, 2014 at 15:21 UTC
Re^5: List of days in current month by Lennotoecom (Pilgrim) on Mar 14, 2014 at 18:03 UTC
Re^2: List of days in current month by Lennotoecom (Pilgrim) on Mar 14, 2014 at 12:26 UTC
dear critics if you minus, please be a dear and write down at least a little description exactly why. ty because simple haters are stupid, aren't they? update exactly what I thought	[reply]