How do I get the current date in ISO format using Perl?

Question

What's the most efficient way to get the current date in ISO format (e.g. "2010-10-06") using Perl?

Answer 1

Most efficient for you or the computer?

For you:

use POSIX qw/strftime/;

print strftime("%Y-%m-%d", localtime), "\n";

For the Computer:

my @t = localtime;
$t[5] += 1900;
$t[4]++;

printf "%04d-%02d-%02d", @t[5,4,3];