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 · Answer

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

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

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

User · 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

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

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

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

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

Examples related to perl

Examples related to date

Examples related to formatting