Desplegar la Fecha en Perl (2)

Normalmente cuando uno ve a un reloj digital y los minutos marcan "2" uno no ve ese número nada más sino lo ve así "02". También quiero desplegar así los minutos, entonces, vamos a agregar una linea de codigo para poder hacer eso.

$minuto = "0" . $minuto if (length($minuto) == 1);

Muy bien, con esta linea checamos el número de digitos de los minutos, si es de un digito entonces le agregramos un 0.

Ahora solo falta poner nuestra linea para imprimir la fecha:

print ("$mes/$dia/$año $hora:$minuto $ampm");

Puedes cambiar el orden de las variables si lo deseeas, o quitar algunas, todo es cuestión de estética.

Código Final

#!/usr/bin/perl -w

use strict;

#Inciamos varibles
my $ampm = "AM";

#Dividimos la linea de LOCALTIME
my ($minuto, $hora, $dia, $mes, $año) = (localtime(time))[1,2,3,4,5];

$mes++;

$ampm = "PM" if ($hora > 11); #Si la hora es mas de las 11
#entonces terminamos con PM

$hora = $hora - 12 if ($hora > 12); #Restamos doce si la hora
#es mayor de doce
#p.e 14:00 serian las 2

$minuto = "0" . $minuto if (length($minuto) == 1);#Añadimos un 0 en caso de
#que los minutos sean de un digito

$año += 1900; #Sumamos 1900 al año

$año = substr($year,2,2); #Quitamos los dos primero digitos del año

#Imprimimos la fecha
print ("$mes/$dia/$año $hora:$minuto $ampm");

exit(1); #Finalizamos el programa

Autor: Uriel Lizama
http://perlenespanol.baboonsoftware.com/archives-tut/000006.html

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

- Expresiones Regulares en Perl
- Qué es Perl
- Mostrar errores en el navegador con Perl
- Variables locales en Perl
- Desplegar HTML con Perl

- Versión imprimible de este documento
- Enviar por e-mail este documento