Re: List of days in current month

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]

Comment on Re: List of days in current month Download Code

Replies are listed 'Best First'.
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]

Replies are listed 'Best First'.

Re^2: List of days in current month
by Anonymous Monk on Mar 13, 2014 at 19:33 UTC

#!/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]