Re: List of days in current month

[toolic]

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

[Anonymous Monk]

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";
}