Foro - Perl en Español

Bienvenido a los foros de Perl en Español, dma1968.

Para leer de un fichero de tipo texto, solo tienes que usar open() y el operador diamante (<>) para obtener cada línea. Usas un bucle while(), que seguirá leyendo líneas hasta el fin del fichero.

En cada línea, lo primero que haces es quitarle el carácter de fin de línea, con el comando chomp().

Luego, en cada línea, como los valores están unidos con una coma, los divides con split(). Eso crea una lista de valores, que los metes directamente en el array.

Para quitar el último número del array, usas pop(). Sacas el siguiente número del array que contiene los nuevos números con shift(). Y se lo metes al array de números anterior con push().

Finalmente, unes todos los números con comas con la ayuda de join(), y lo imprimes a pantalla o a otro fichero o lo procesas en el gráfico. Y cierras los ficheros abiertos con close().

Más información en perldoc perlop en tu propio ordenador. Y para obtener información de cada función: perldoc -f función.

No es cómodo ni aconsejable tener una variable por cada línea del fichero... Además de hacer al programa innecesariamente largo, si un día cambiaran las condiciones (número de líneas del fichero de entrada), deberíamos cambiar unas cuantas líneas del programa.

Lo mejor, en tu caso, es crear una estructura bidimensional. La primera dimensión serán las líneas del fichero, y cada columna, los componentes de cada línea.

(no probado)