Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

How do I find today's date?

( #2158=categorized question: print w/ replies, xml ) Need Help??
Contributed by vroom on Jan 19, 2000 at 00:31 UTC
Q&A  > dates and times


Answer: How do I find today's date?
contributed by vroom

use localtime or Time::localtime

my($day, $month, $year)=(localtime)[3,4,5]; print "$day-".($month+1)."-".($year+1900)."\n"; # or use Time::localtime; $tm=localtime; my ($day,$month,$year)=($tm->mday,$tm->month,$tm->year);
Edited to fix precedence errors in localtime() version as noted by 3dbc
Answer: How do I find today's date?
contributed by ducky

If you just need a timestamp string, ala "Wed Mar 22 10:56:43 PST 2000" you can just: print scalar localtime() ;
-Ducky

Answer: How do I find today's date?
contributed by Zombie Melkurion

Here's a complete little program:

use Time::localtime; $tm = localtime; printf("The current date is %04d-%02d-%02d\n", $tm->year+1900, ($tm->mon)+1, $tm->mday); printf("The current time is %02d:%02d:%02d\n", $tm->hour, $tm->min, $t +m->sec);
Answer: How do I find today's date?
contributed by autarch

use DateTime; my $dt = DateTime->today; print $dt->date;
Answer: How do I find today's date?
contributed by Agyeya

You could also use Date::Manip

$date = ParseDate("today"); print "Today's Date is $date.\n";
Answer: How do I find today's date?
contributed by sacked

You can also use POSIX::strftime:

use POSIX qw(strftime); print "today's date is ", strftime( '%b %e, %Y', localtime );
Answer: How do I find today's date?
contributed by DeadPoet

Example 1:

sub timestamp { return localtime (time); } print '[' . timestamp() . ']: Normal Time Format'. "\n";

Output 1:

[Sat Jan 8 11:59:07 2011]: Normal Time Format

Example 2:

use Time::localtime; sub timestamp { my $t = localtime; return sprintf( "%04d-%02d-%02d_%02d:%02d:%02d", $t->year + 1900, $t->mon + 1, $t->mday, $t->hour, $t->min, $t->sec ); } print '[' . timestamp() . ']: Custom Time Format'. "\n";

Output 2:

[2011-01-08_12:06:05]: Custom Time Format

Please (register and) log in if you wish to add an answer



  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • Outside of code tags, you may need to use entities for some characters:
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.
  • Log In?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others studying the Monastery: (8)
    As of 2014-09-01 14:46 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      My favorite cookbook is:










      Results (13 votes), past polls