如何使用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];