Как получить текущую дату в формате ISO с помощью Perl?

Question

Каков наиболее эффективный способ получить текущую дату в формате ISO (например, «2010-10-06») с использованием Perl?

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; 

Ресурсы

• Дата :: имен на The 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, который, по-видимому, является стандартным модулем обработки даты de facto thes е дней. Необходимо установить его из CPAN.

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

Answer 5

Это не создает каких-либо временных переменных:

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