Foro - Perl en Español

por **reLlene** » 2013-01-02 13:31 @605

Tengo dos (y puede que exista una tercera) variables con formato 20120131 y necesito formatearlas de manera tal de mostrarlas con el siguiente formato: '31-01-2012' por tratarse de información que necesito insertar a una base de datos (PostgreSQL).

El punto es que dichas variables (fechas) son todas distintas y no logro conseguir algo polimórfico que me las resuelva de ¡¡¡UN SOLO ZASS!!! Me refiero que haga el formateo correspondiente independientemente de que éstas sean distintas y no hacer algo cómo lo siguiente (que es con lo que cuento).

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# formateo de fechas ('Anio-Mes-Dia')
 
 # $header[22] es una de las variables mencionadas...
 my $anio_fecha = substr($header[22],0,4);
 my $mes_fecha = substr($header[22],-4,2);      
 my $dia_fecha = substr($header[22],6); 
 my $fecha = $dia_fecha.'-'.$mes_fecha.'-'.$anio_fecha;
        
 # $footer[23] es la otra...
 my $anio_vtocae = substr($footer[23],0,4);
 my $mes_vtocae = substr($footer[23],-4,2);     
 my $dia_vtocae = substr($footer[23],6);        
 my $fechavtocae = $dia_vtocae.'-'.$mes_vtocae.'-'.$anio_vtocae;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

NOTA: el tipo de datos de los campos donde van a parar dichas variables son de tipo DATE con una longitud de 15.

Supuse en un principio que con la función sprintf podría conseguir algo que resulte pero no fue el caso.

Cualquier sugerencia es bienvenida.

¡¡¡Saludos!!!

#!/usr/bin/perl
use v5.14;
 
my $fecha;
 
$fecha = "20120131";
 
say "$fecha => ", formatea_fecha($fecha);
 
sub formatea_fecha {
    my $fecha = shift;
    my @fecha = unpack "A4 A2 A2", $fecha;    # tres campos, de 4, 2 y 2 caracteres
 
    return join '-', @fecha[2,1,0];           # nueva fecha formateada
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Otra solución: con expresiones regulares.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.14;
 
my $fecha;
 
$fecha = "20120131";
 
say "$fecha => ", formatea_fecha($fecha);
 
sub formatea_fecha {
    my $fecha = shift;
    my @fecha = $fecha =~ /(....)(..)(..)/;   # tres campos, de 4, 2 y 2 caracteres
 
    return join '-', @fecha[2,1,0];           # nueva fecha formateada
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De todas maneras... ¿para qué quieres hacer eso? El formato de fecha 20120131 sigue la norma ISO 8601, lo cual es ideal para el intercambio de datos con otros sistemas, o simplemente, para el procesamiento de estructuras internas (fíjate que las fechas en ese formato se pueden ordenar numéricamente, sin realizar ninguna transformación). Convertirlo a 31-01-2012 solo tiene sentido si son fechas que van a salir a pantalla o web, para que lo lea un humano, pero para nada más.

por **reLlene** » 2013-01-02 15:52 @703

¡¡GENIAL, explorer!! No me percaté de hacer el llamado a una sub cómo tu lo haces, sólo estaba tirando las tres líneas con la función substr() por CADA variable que recibía :lol:

No sólo me sirvió ver que la mía funciona sino, ahora, tener en cuenta las otras formas de resolverlo como tu lo has expuesto.

La idea es que estas fechas se muestren vía web ya que generan unas facturas y su posterior impresión a papel.

Te agradezco una vez más, hermano.

¡¡¡ Un saludo cordial !!! :wink:

Foro - Perl en Español

Formateo fecha tipo DATE en Postgresql

Formateo fecha tipo DATE en Postgresql

Publicidad

Re: Formateo fecha tipo DATE en Postgresql

Re: Formateo fecha tipo DATE en Postgresql

¿Quién está conectado?