Come ottengo la data corrente nel formato ISO usando Perl?

Question

Qual è il modo più efficiente per ottenere la data corrente in formato ISO (ad esempio "2010-10-06") utilizzando Perl?

Answer 1

più efficace per voi o il computer?

Per voi:

use POSIX qw/strftime/; 

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

per il computer:

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

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

Answer 2

Ci sono molti moduli nello spazio dei nomi Date::, molti dei quali possono aiutarti a fare ciò che ti serve. In alternativa, si può semplicemente rotolare il proprio:

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

Risorse

• Data :: namespace Il CPAN: http://search.cpan.org/search?query=Date%3A%3A&mode=module

Answer 3

È possibile utilizzare il modulo Time::Piece (in bundle con il Perl 5.10 e fino, oppure si può scaricare da CPAN), come segue:

Answer 4

Oppure è possibile utilizzare il modulo DateTime che sembra essere il modulo di gestione della data standard di fatto e giorni È necessario installarlo da CPAN.

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

Answer 5

Questo non crea alcun variabili temporanee:

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