Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Answer: How do I find today's date?

by DeadPoet (Scribe)
on Jan 08, 2011 at 18:07 UTC ( #881252=categorized answer: print w/replies, xml ) Need Help??

Q&A > dates and times > How do I find today's date? - Answer 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

Log In?

What's my password?
Create A New User
[Eily]: congrats Discipulus :)
[choroba]: I often can't log in to pause. But after it fails for the first time, everything works for the second time.

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (7)
As of 2017-02-22 09:04 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (325 votes). Check out past polls.