Date displaying the 0's

[Anonymous Monk]

hi,

I have this following code that produces today's date in the following format YYYY-MM-DD

however, this code prints today's date as: 2006-4-9 and NOT 2006-04-09

what can I do to my script so that the date has 0's?

                        my $time = time;
                        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yd
+ay,$isdst) = localtime($time);

                        $mon++;
                        $year += 1900;
                        my $date = "$year-$mon-$mday";

thanks!

[borisz]

my $date = sprintf ("%04d-%02d-%02d", $year, $mon, $mday);

[graff]

And given how sprintf takes args, you can reduce your 5 lines to just these two (taking advantage of localtime's default behavior, using an array slice on that, and doing the arithmetic in the sprintf call):

my ( $mday, $mon, $year ) = (localtime())[3..5];
my $date = sprintf("%04d-%02d-%02d", $year+1900, $mon+1, $mday);

[eXile]

Or have a CPAN module do all the error-prone date-handling for you. For instance DateTime

use DateTime
$date = DateTime->now()->ymd();

[jwkrahn]

use POSIX 'strftime';

my $date = strftime '%Y-%m-%d', localtime;

[sen]

Hi, try this one

use Time::Piece;
my $t = localtime;
print $t->ymd;