facha actual

[enero]

Hola

Como puedo extraer la fecha actual en formato 0000-00-00 y convertirla en una variable

Gracias por la ayuda

[jferrero]

¿Extraerla de dónde? ¿Del reloj del sistema? ¿De un fichero de texto? ¿De un programa externo? ¿De una base de datos? ¿De forma aleatoria?

[enero]

Bueno, lo ideal sería extraerla del reloj del sistema.

Un Saludo

[monoswim]

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

Puedes usar localtime (horario local del servidor) o gmtime(time) horario universal del ¿ meridiano de grenweech ?

Saludos

[enero]

Gracias,

En primer lugar pedir disculpas ya que tengo conocimiento nulo de perl y me veo frente a una aplicación hecha con perl y necesito añadirle un par de cosas, entre ellas esta y no se como hacerlo...

Lo que necesito es juto la fecha en formato 0000-00-00 .

Con esto que me comentas:

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

Me da la impresion de que obtengo mas datos y no se exactamente cual sería el nombre de la variable... Lo que necesitaría es solo la fecha y en una variable ya que yo luego pretendo insertarla en una db.

Muchas gracias por la ayuda

[jferrero]

Código:

(undef,undef,undef,$mday,$mon,$year,undef,undef,undef) = localtime;
$year += 1900;
$mon++;
$fecha = sprintf "%04d-%02d-%02d", $year, $mon, $mday;

Código:

($dia,$mes,$year) = (localtime)[3,4,5];
$year += 1900;
$mes++;
$fecha = sprintf "%04d-%02d-%02d", $year, $mes, $dia;

Código:

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

[enero]

Gracias, ya lo tengo resuelto.