facha actual

[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;