Foro - Perl en Español

Gracias a los dos, Birei y Explorer.

A ver, realmente el proceso es el siguiente.

Dispongo de unos ficheros de 50000 líneas y que quiero juntarlos en un solo pero todos ellos en la cabecera llevan este par de números: el 360 181. Esta cabecera no me interesa, y es más, cuando quiero juntar todos los ficheros .dat en uno de solo con el Data::Table, el fichero de salida queda alterado. Es decir, lo que me interesa es eliminar esta numeración de 360 y 181 de todos los ficheros antes de juntarlos en un solo .dat.

Hola de nuevo,

explorer, ¿qué se ha de modificar del script para que las columnas estén alienadas?, es decir que las unidades negativas también estén alineadas con las positivas?

Por ejemplo, ahora los símbolos negativos están debajo de las unidades positivas:
0.22
-1.77

y necesito que todas las unidades tanto positivas como negativas estén alineadas, no sé si me explico...

#!/usr/bin/perl
use Data::CTable;
use POSIX 'strftime';

my $tabla = Data::CTable->new(); # Objeto Data::CTable

my @archivos = </home/sam/enric/ASCII/UGRD*>; # listado de los archivos
#print "Uniendo ", scalar(@archivos), " archivos\n";

# Combinación
for my $i ( 1 .. @archivos ) { # hacemos un bucle por todos ellos
$tabla->combine_file( $archivos[$i-1], { # combinamos un archivo
_HeaderRow => 0, # que no tiene cabecera
_FieldList => [ $i ], # porque la prefabricamos
_CacheOnRead => 0, # y no queremos caché
});
}
# aquí ya tenemos toda la tabla, con todas las columnas, cuyos nombres son 1, 2, 3, ...

# Ponemos la fecha
my $largo = $tabla->length(); # cómo es de grande esa tabla
$tabla->row_set($largo, { # $largo también es el índice de la nueva fila
# (las filas se numeran de 0 a $largo-1)
1 => strftime('%Y%m%d%H', localtime), # en la primera columna de esa fila ponemos la fecha
});
$tabla->row_move($largo, 0); # y subimos la fila arriba del todo

# Salida
$tabla->write( # escribimos el resultado
_FileName => 'vientos.dat', # aquí
_FDelimiter => "\t", # y tabulado
_HeaderRow => 0, # pero sin las cabeceras prefabricadas
);

Hola, explorer,

He utilizado tu script pero me han salido los siguientes errores de compilación:



#!/usr/bin/perl
use autodie;
use Tie::File;

tie my @lineas, 'Tie::File', '/home/sam/opt/wwatch#3/v2.22/ASCII/2012031812/UGRD10m*.dat'; # enlazamos la vida de @lineas con las líneas de kk.txt
shift @lineas; # quitamos la primera línea
untie @lineas; # fin del enlace

No encuentra comandos autodie y Tie::File, ¿las he de bajar con el cpan?

Gracias.

Los errores que sacas demuestran que has ejecutado el programa como si fuera en script del shell, no de Perl.

No puedes usar Tie::File con múltiples archivos (con el comodín '*'). Debes ir uno por uno, así que debes meter esas líneas dentro de un bucle. Igual que hemos hecho antes con el otro programa.

Tie::File sí que debe estar instalado. Si no está autodie, lo que puedes hacer es eliminar esa línea. Su función es la de matar el programa en caso de que Tie::File no sea capaz de leer el archivo.

enric73 escribiste:explorer, ¿qué se ha de modificar del script para que las columnas estén alienadas?, es decir que las unidades negativas también estén alineadas con las positivas?

Por ejemplo, ahora los símbolos negativos están debajo de las unidades positivas:
0.22
-1.77

y necesito que todas las unidades tanto positivas como negativas estén alineadas, no sé si me explico...

No hay que cambiar, pero sí introducir toda la mecánica necesaria para formatear los valores.

Lo que haría sería:

• por cada columna de la tabla
• con col_get() (del módulo Data::CTable) recupero la columna con todos los valores
• Con todos los valores, averiguo la mayor longitud (length) (y suponiendo que todos los valores tienen dos decimales)
• Ahora que sé la longitud, puedo reescribir todos los valores con la ayuda de sprintf()
• Asigno la columna que acabo de modificar dentro de la tabla, con col_set()

Buenas tardes, explorer,

Voy un poco perdido con esto que me has comentado al final del cambio de formato. He entrado en http://search.cpan.org/~ezdb/Data-Table-1.60/Table.pm pero no he encontrado nada sobre col_get()

Supongo que he de empezar con un

foreach $col

No es Data::Table, sino Data::CTable.

Sí, hay que hacer un bucle por las columnas que quieres formatear. Si son todas, pues todas.

Gracias, explorer.

enric73 escribiste:Es decir, lo que me interesa es eliminar esta numeración de 360 y 181 de todos los ficheros antes de juntarlos en un solo .dat.

Entonces sí que no es necesario hacer dos pasos, sino que justo antes de combinarlos, quites esa primera línea.

Queda así:

Muchas gracias, explorer, me estoy peleando ahora con el formato de las columnas,



Lo que haría sería:

por cada columna de la tabla
con col_get() (del módulo Data::CTable) recupero la columna con todos los valores
Con todos los valores, averiguo la mayor longitud (length) (y suponiendo que todos los valores tienen dos decimales)
Ahora que sé la longitud, puedo reescribir todos los valores con la ayuda de sprintf()
Asigno la columna que acabo de modificar dentro de la tabla, con col_set()

Si te atascas con el código o te sale error, nos enseñas el código y vemos dónde está el problema.