[perl] Formato de fechas.

[Salvador Ortiz Garcia]

On Mon, 19 Jun 2000, Sergio Tirado wrote:

> Tengo una variable $fecha con la siguiente información: "2000-06-12".
> 
> ¿como le hago para convertirla en $fecha="12/06/2000"?
> 
> o mejor aún, si alguien de ustedes tiene alguna rutina para convertirla en
> 
> $fecha = "Junio 06, 2000" o algo parecido, pues que mejor.

Sea:

my $fecha = '2000-06-12';

Prueba:

print joint '/', reverse split '-',$fecha;

ó 

@meses = qw(enero febrero marzo abril mayo junio julio agosto sep octubre
noviembre diciembre);
my($a,$m,$d) = split('-',$fecha);
printf "%s %02d, $a",$meses[$m-1],$d;


El dejar el resultado en una variable queda como ejercicio al lector,
y una leidita al manual no vendría mal.



Saludos

Salvador Ortiz


--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl