Saturday, June 25, 2005

Manejo Fechas en Perl

:D este es mi primer post, bueno aqui muestro un codigo que hice para el manejo de fechas en si, para mostrar la fecha en formato 12 horas, esta hecho en perl(perl corre en cualquier plataforma), al archivo de este ejmemplo lo llamaremos fecha.pl, si eres usuario de linux usaremos el editor macho :) VIM
[diego@trujillo ejemplos]# vim fecha.pl
escribimos el siguiente codigo

#!/usr/bin/perl
use strict;
print "Feca actual: ". fechas()."\n";

sub fechas {
my $self = shift;

my $end_time = shift;

my $ampm = "AM";
my @strday = ("Domingo","Lunes","Martes","Miercoles","Jueves",
"Viernes","Sabado");

my @strmon = ("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto",
"Setiembre","Octubre","Noviembre","Diciembre");

my ($second, $minuto, $hora, $day, $month, $year, $week, $dayd, $isd ) = (localtime($end_time));

$ampm = "PM" if ($hora > 11);

$hora = $hora - 12 if ($hora > 12);

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

$year = $year + 1900;
my $final_date=substr($strday[$week],0,3)." ".substr($strmon[$month],0,3)." ".$day." ".$year." "."at "."$hora:$minuto $ampm";
return($final_date);
}
1;
lo guardamos presionando dos veces la tecla esc y despues :wq con eso salva el archivo y sale de vim ahora ejecutamos.
[diego@trujillo ejemplos]# perl fecha.pl
listo espero, les sirva de algo :)