如何使用Perl获取ISO格式的当前日期？

Question

使用Perl获取ISO格式当前日期的最有效方式是什么（例如“2010-10-06”）？

Answer 1

最有效的，你还是电脑？

对于你：

use POSIX qw/strftime/; 

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

对于计算机：

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

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

Answer 2

命名空间Date::中有很多模块，其中很多模块可以帮助您执行所需的任务。或者，你可以滚你自己：

my ($day, $mon, $year) = (localtime)[3..5]; 
printf "%04d-%02d-%02d\n", 1900+$year, 1+$mon, $day; 

资源

• 日期::命名空间上的CPAN：http://search.cpan.org/search?query=Date%3A%3A&mode=module

Answer 3

可以使用Time::Piece模块（捆绑使用Perl 5.10及以上，或者您也可以从CPAN下载），具体如下：

use strict; 
use warnings; 
use Time::Piece; 

my $today = localtime->ymd();  # Local time zone 
my $todayUtc = gmtime->ymd();  # UTC 

Answer 4

或者你可以使用DateTime模块，它似乎是事实上的标准日期处理模块e天。需要从CPAN安装它。

use DateTime; 
my $now = DateTime->now->ymd; 

Answer 5

这不会创建任何临时变量：

printf "%d-%02d-%02d", map { $$_[5]+1900, $$_[4]+1, $$_[3] } [localtime];