Foro - Perl en Español

por **abraham03** » 2018-01-10 02:22 @140

Hola, quisiera saber cómo hacer un rearreglo de columnas a partir de un array.

Lo que tengo es algo así (es a partir de un archivo de asignaciones taxonómicas):

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

#name value1 value2 value3 valueN
name1     9          5           3           9
name2     4          7           2           17
name3    12         3           7           7
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

y lo que quiero es algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

#name            value
value1_name1 9
value2_name1 5
value3_name1 3
valueN_name1 9
value1_name2 4
value2_name2 7
value3_name2 2
valueN_name2 17
value1_name3 12
value2_name3 3
value3_name3 7
valueN_name3 7
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

El número de columnas correspondiente a los valores numéricos siempre es variable, pueden ser unos cuanto o cientos, y quiero imprimirlos separados por un tabulador. ¿Alguien me podría explicar cómo proceder a partir de un array?
¡¡Gracias!!

Bueno, esto lo puedes hacer con un solo bucle.

Abres el archivo, lees la primera línea, donde están los nombres de las columnas, y las guardas en un array.
Luego, inicias un bucle hasta el final del archivo. Por cada línea, los separas por campos (con split()), y por cada elemento, haces la composición de las dos columnas que tienes que mostrar. Recorres los campos con un valor de índice, que usarás para acceder al elemento correspondiente en el primer array.

Es algo así (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use autodie;
open my $ARCHIVO, '<', $archivo;
 
my $linea = <$ARCHIVO>;                                 # leer cabecera
chomp $linea;
my (undef, @nombres_valores) = split " ", $linea;       # sacamos el nombre de las columnas, excepto la primera, que no nos interesa
 
while ($linea = <$ARCHIVO>) {                           # para el resto de líneas
    chomp $linea;
 
    my @campos = split " ", $linea;                     # dividimos (suponemos que no falta ninguna columna)
 
    for my $i (1 .. $#campos) {                         # para todas las columnas, a partir de la segunda
 
        print $nombres_valores[$i] . '_' . $campos[0] . " " . $campos[$i] . "\n";
    }
}
 
close $ARCHIVO;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Rearreglar columnas

Rearreglar columnas

Publicidad

Re: Rearreglar columnas

¿Quién está conectado?