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...

- Envío de email con Perl y Linux
- Usar módulos sin instalar en PERL
- Utilizando FormMail
- Crear un servidor de MP3 con Perl
- Creación y control de procesos en Perl

- Versión imprimible de este documento

- Enviar por e-mail este documento