[Perl] como ponerle fecha a mi CGI ????

[Eduardo Sacristan]

On Mon, 20 Aug 2001, Jaime Palomo R. wrote:

> Hola lista.:
>=20
> Tengo una peque=F1a duda, como puedo hacer para que mi CGI tome la fecha
> del sistema y la inserte en el antes mencionado (CGI).
>=20

pues por ejemplo:

  ($sec,$min,$hora,$diam,$mes,$ano,$dias,$diaa,$isdst) =3D localtime;
  $fecha =3D sprintf("%02d/%02d-%02d:%02d hrs.",$diam,$mes+1,$hora,$min);

o

  ($dia,$mes,$ano) =3D (localtime)[3,4,5];
  $fecha =3D sprintf("%02d/%02d/%02d", $dia,$mes+1,1900+$ano);


saludos

Eduardo Sacristan=20