Fecha y Hora con Perl

Este código coge la fecha actual localtime la parte en hora, minutos, segundos, dia, mes y año y después recomponemos la fecha en formato Europeo.

En este caso, el operador localtime devuelve una lista compuesta por los segundos, minutos..., tomándolo de la función time que devuelve el número de segundos transcurridos desde 1970. Al utilizar la lista @zape contenemos el resto de los elementos de la hora, que no nos interesan (día de la semana...).

En la variable que contiene el año (anho) le sumamos 1900 ya que los que nos devuelve es el número de años transcurridos desde 1900, por eso al sumarle el 1900 conseguimos el año actual en cuatro cifras.


($seg, $min, $hora, $dia, $mes, $anho, @zape) = localtime(time);
$mes++;
$anho+=1900;
$fecha_actual= "$anho-$mes-$dia";

Usuarios que han visto este tema también han visto...

- Hola Mundo
- Desplegar HTML con Perl
- Redirección de acuerdo a la resolución de la pantalla en Perl
- Usando el hash en Perl
- Variables y estructura de los datos en Perl

- Versión imprimible de este documento

- Enviar por e-mail este documento