Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

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
[Discipulus]: another tybalt's masterpiece!
[Discipulus]: tybalt89 you must consider writing a book: The Perl regex approach to every problem

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2017-11-23 08:14 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (331 votes). Check out past polls.