Today s Date in Perl in MM DD YYYY format

Question

I m working on a Perl program at work and stuck on  what I think is  a trivial problem  I simply need to build a string in the format  06 13 2012   always 10 characters  so 0 s for numbers less than 10    Here s what I have so far   use Time  localtime   tm localtime  my   day  month  year    tm- gt mday  tm- gt month  tm- gt year

User · Accepted Answer

You can do it fast  only using one POSIX function  If you have bunch of tasks with dates  see the module DateTime   use POSIX qw strftime    my  date   strftime   m  d  Y   localtime  print  date

User · Answer

use Time  Piece      my  t   localtime  print  t- gt mdy        02 29 2000

User · Answer

If you like doing things the hard way   my  undef undef undef  mday  mon  year    localtime   year    year 1900   mon    1  if  length  mon      1    mon    0 mon    if  length  mday     1    mday    0 mday    my  today     mon  mday  year

User · Answer

You can use Time  Piece  which shouldn t need installing as it is a core module and has been distributed with Perl 5 since version 10   use Time  Piece   my  date   localtime- gt strftime   m  d  Y    print  date    output  06 13 2012     Update  You may prefer to use the dmy method  which takes a single parameter which is the separator to be used between the fields of the result  and avoids having to specify a full date time format  my  date   localtime- gt dmy         This produces an identical result to that of my original solution

User · Answer

use DateTime qw    DateTime- gt now- gt strftime   m  d  Y        expression returns 06 13 2012

User · Answer

Formating numbers with leading zero is done easily with  sprintf   a built-in function in perl  documentation with  perldoc perlfunc   use strict  use warnings  use Date  Calc qw    my   y   m   d    Date  Calc  Today    my  ddmmyyyy   sprintf   02d  02d  d    d   m   y  print  ddmmyyyy     n     This gives you   14 05 2014

User · Answer

Perl Code for Unix systems     Capture date from shell my  current date    date    m  d  Y       Remove newline character  current date   substr  current date 0 -1    print  current date    n

[perl] Today's Date in Perl in MM/DD/YYYY format

Examples related to perl

Examples related to date

Examples related to formatting