Fecha en perl

mgrubio · #1 (**permalink**) 01/12/2006, 13:00

Hola. Me gustaria obtener la fecha en perl. He estado mirando la funcion localtime() pero no me funciona bien xq yo solo kiero el dia, mes y año.

monoswim · #2 (**permalink**) 01/12/2006, 14:04

localtime(time);

Tiene que funcionarte, yo hago así...

my ($sec,$min,$hora,$mday,$mon,$ano,$wdia,$ydia,$isds t,@fecha) = localtime (time);
$ano += 1900;
$mon++;
my $diadehoy = "$mday/$mon/$ano";

Espero que te sirva

Saludos

jferrero · #3 (**permalink**) 03/12/2006, 11:56

perl -le 'print scalar localtime'