Foro de programacion

#1 (**permalink**) 30 de marzo,2005, 19:59

Hola!!

Tengo un documento en txt que tiene el siguiente formato:

Código:

38330500,29ba47bb104923102751880e62eeda9d,4/1/2004 1:24:49 AM,4/1/2004 1:24:49 AM
36314924,d9ab3bbc7ef7614b5965b121532161e6,4/1/2004 1:27:45 AM,4/1/2004 1:34:09 AM
36519536,91d10a59ee2971f98d21be0b9b872a97,4/1/2004 1:28:25 AM,4/1/2004 1:33:18 PM

lo que necesito es transformar la hora AM/PM y que quede

Código:

38330500,29ba47bb104923102751880e62eeda9d,4/1/2004 1:24:49 AM,4/1/2004 1:24:49
36314924,d9ab3bbc7ef7614b5965b121532161e6,4/1/2004 1:27:45 AM,4/1/2004 1:34:09
36519536,91d10a59ee2971f98d21be0b9b872a97,4/1/2004 1:28:25 AM,4/1/2004 13:33:18

Recién supe que se puede hacer con perl pero no tengo idea como hacerlo... Son 5 millones de datos!!

Vero.

#2 (**permalink**) 30 de marzo,2005, 20:00

No se entiende muy bien lo que necesitas.
Es decir, vos querés pasar:
4/1/2004 1:24:49 AM ==> 4/1/2004 1:24:49
y
4/1/2004 1:24:49 PM ==> 4/1/2004 13:24:49

Es esto?

#3 (**permalink**) 07 de agosto,2005, 20:05

Es muy sencillo, pero hay que tener en cuenta unos detalles:

Suponemos que las fechas están en formato anglosajón (mes/dia/año hora:minuto:segundo AM/PM)
El archivo donde está el origen de los datos se llama archivo.txt
El archivo resultado estará en un fichero llamado resultado.txt
Las fechas y tiempos pueden tener ceros en las cifras menores de 9. Así, la una de la madrugada será las 01:00:00 y no las 1:0:0
Sólo hay que cambiar la fecha que hay al final de la línea.

Entonces el código (uno de los posibles) es este:

Código:

#!/usr/bin/perl

use DateTime;
use Time::ParseDate;

# Para todas las líneas del fichero que pasamos como argumento del programa
# La línea quedará almacena en la variable por defecto $_
while ( <ARGV> )
{
    # Analizamos la línea y nos quedamos con la última parte
    # que es la que parece que vero quería cambiar
    ($tiempo) = $_ =~ /,([^,]+)$/;

    # Convertimos la fecha/hora en segundos desde el epoch
    $segundos = parsedate($tiempo);

    # Si ha fallado la conversión, esa línea es distinta de las demás.
    # Informamos al operador y seguimos con la siguiente
    unless ( defined $segundos )
    {
        print "ERROR: Linea distinta:\n$_\n";
        next;
    }

    # Creamos un objeto Fecha/Hora para que nos ayude en la conversión
    $dt = DateTime->from_epoch (
            epoch=>$segundos,
            time_zone=>"local"
    );

    # Creamos la nueva fecha, sin el AM/PM
    $nueva = $dt->strftime("%m/%d/%Y") . ' ' . $dt->hms;

    # Modificamos la línea con la nueva fecha
    $_ =~ s/,[^,]+$/,$nueva/;

    # Sacamos el resultado al exterior
    print "$_\n";
}

Y lo ejecutaríamos como:

Código:

programa.pl archivo.txt > resultado.txt

Quedaría editar el fichero resultado y ver si existen líneas etiquetadas como ERROR, por si acaso.
El resultado del programa sería:
archivo.txt

Código:

38330500,29ba47bb104923102751880e62eeda9d,4/1/2004 1:24:49 AM,4/1/2004 1:24:49 AM
36314924,d9ab3bbc7ef7614b5965b121532161e6,4/1/2004 1:27:45 AM,4/1/2004 1:34:09 AM
36519536,91d10a59ee2971f98d21be0b9b872a97,4/1/2004 1:28:25 AM,4/1/2004 1:33:18 PM

resultado.txt

Código:

38330500,29ba47bb104923102751880e62eeda9d,4/1/2004 1:24:49 AM,04/01/2004 01:24:49
36314924,d9ab3bbc7ef7614b5965b121532161e6,4/1/2004 1:27:45 AM,04/01/2004 01:34:09
36519536,91d10a59ee2971f98d21be0b9b872a97,4/1/2004 1:28:25 AM,04/01/2004 13:33:18

Joaquin Ferrero · #4 (**permalink**) 04 de septiembre,2005, 02:03

Esto es para cambiar sólo la última fecha de cada línea, como querías:

Código:

perl -pe 's/ (\d+)(:\d+:\d+) (A|P)M$/sprintf(" %d$2",($3 eq "P")?$1+12:$1)/e;' archivo.txt

En caso de que quieras cambiar las dos fechas de cada línea:

Código:

perl -pe 's/ (\d+)(:\d+:\d+) (A|P)M/sprintf(" %d$2",($3 eq "P")?$1+12:$1)/ge;' archivo.txt

Y en el caso de que además quieras poner los números de las horas con dos dígitos:

Código:

perl -pe 's/ (\d+)(:\d+:\d+) (A|P)M/sprintf(" %02d$2",($3 eq "P")?$1+12:$1)/ge;' archivo.txt