Comment obtenir la date actuelle au format ISO en utilisant Perl?

Question

Quel est le moyen le plus efficace pour obtenir la date actuelle au format ISO (par exemple « 2010-10-06 ») en utilisant Perl?

Answer 1

le plus efficace pour vous ou l'ordinateur?

Pour vous:

use POSIX qw/strftime/; 

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

Pour l'ordinateur:

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

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

Answer 2

Il y a beaucoup de modules dans l'espace de noms Date::, dont beaucoup peuvent vous aider à faire ce que vous avez besoin. Ou, vous pouvez simplement rouler votre propre:

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

Ressources

• Date :: espace de noms du CPAN: http://search.cpan.org/search?query=Date%3A%3A&mode=module

Answer 3

Vous pouvez utiliser le module Time::Piece (livré avec Perl 5.10 et, ou vous pouvez télécharger à partir CPAN), comme suit:

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

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

Answer 4

Ou vous pouvez utiliser le module DateTime qui semble être le module standard de gestion de date de facto e jours. Besoin de l'installer à partir du CPAN.

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

Answer 5

Cela ne crée pas de variables temporaires:

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