Answer: How do I find today's date?

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);
[download]

Comment on Answer: How do I find today's date? Download Code
Re: Answer: How do I find today's date? by davorg (Chancellor) on Sep 03, 2001 at 15:33 UTC
For formatted date/time strings I prefer `POSIX::strftime`. `use POSIX 'strftime'; print 'The current date is '; print strftime('%Y-%m-%d', localtime), "\n";` [download] -- <http://www.dave.org.uk> Perl Training in the UK <http://www.iterative-software.com>	[reply] [d/l]


There's more than one way to do things
	PerlMonks

Answer: How do I find today's date?

My top resolution in 2015 is: