Foro - Perl en Español

¡Hola!

Tengo una pequeña duda:
Necesito extraer de un fichero que comienza con varios comentarios que quiero saltar, la 3ª columna. Me explico:


Quiero extraer, a partir de AAA y hasta el final, la columna de ceros y asignársela a un array, siendo cada número un elemento del mismo.

Mi idea es leer el fichero completo y hacer un @lineas=split("\n",$fichero), porque cada línea acaba con un salto de línea: con esto tendría ya un array de líneas.

Mi problema es ahora cómo tomar sólo la columna de ceros (0.02, 0.05, 0.07...) y asignársela a un array. Mi idea era hacer dos shift() a cada línea para retirar los 2 primeros elementos (AAA y 1, p. ej.), y poner $numero= shift @linea: con esto debería cogerme el tercer elemento de la línea (posición 2 en informática) y guardarlo en $numero, ¿¿no??

Mi código es algo así:



El problema es que me sale todo en blanco, vacío... =S

¿Me pueden decir por qué, y cómo podría hacerlo bien con estas funciones (split, shift, push...)?

Muchas gracias, un saludo

Bienvenido a los foros de Perl en español, burbuja.

Te has saltado un paso en el procedimiento...

Tienes las líneas almacenadas en @lineas. Cada elemento es una línea, es decir, una cadena de texto.

Entonces, debes convertir esa cadena de caracteres en elementos del array @linea (no @lineas), haciendo un split() usando como delimitador el carácter tabulador (o, de forma general, cualquier espacio en blanco).

Así ya podrás referirte a las columnas a partir de la tercera: $linea[3], $linea[4], etc.

En el código, mezclas la lectura de cada línea (en el while()), con lo que esa línea representa. Y no puedes partir una línea leída por los "\n", pues solo hay uno, y al final de la línea que acabas de leer.

Sería algo así:

Ok, ¡¡muchas gracias por la ayuda!!