Jak uzyskać aktualną datę w formacie ISO, używając Perla?

Question

Jaki jest najskuteczniejszy sposób uzyskania bieżącej daty w formacie ISO (na przykład "2010-10-06") przy użyciu języka Perl?

Answer 1

Najbardziej efektywne dla Ciebie lub komputera?

Dla ciebie:

use POSIX qw/strftime/; 

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

Na komputerze:

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

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

Answer 2

Istnieje wiele modułów w przestrzeni nazw Date::, z których wiele może pomóc w zrobieniu tego, czego potrzebujesz. Albo można po prostu toczyć własną rękę:

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

Resources

• Date :: nazw na CPAN: http://search.cpan.org/search?query=Date%3A%3A&mode=module

Answer 3

można wykorzystać moduł Time::Piece (w pakiecie z Perl 5.10 i do góry, czy można pobrać z CPAN), w następujący sposób:

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

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

Answer 4

Lub możesz użyć modułu DateTime, który wydaje się de facto standardowym modułem obsługi daty. e dni. Należy zainstalować z CPAN.

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

Answer 5

nie tworzyć żadnych zmiennych przejściowych:

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