Foro - Perl en Español

Hola, este es mi primer post en el foro.

Necesito hacer un script en Perl el cual abra un fichero de texto del tipo:

Código: Seleccionar todo

Simple
4
0 1 1 0
1 0 0 1
1 0 0 1
0 1 1 0

El script debe de leer el número de la 2º linea y guardarlo (4). Después debe recorrer la matriz por filas y comprobar donde hay uno y donde hay cero. En definitiva, debo saber cómo poder irme a una fila en concreto del archivo txt y cómo puedo recorrer una fila de la susodicha matriz.
Agradezco cualquier tipo de ayuda, porque acabo de empezar con esto y estoy liado.

Un saludo

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

Debes poner las instrucciones de apertura de ficheros. Luego, leer una línea que no guardarás. Volver a leer otra vez y ya tendrás la segunda línea. Se la das al usuario (por ejemplo), con un print.

Como la segunda línea queremos obtener el número, pues nos indica el tamaño de la matriz, tenemos que convertirla a justamente eso. Para ello, hacemos un chomp para quitarle el retorno de carro final. Y nada más. Ya tendremos el número.

Luego, dices que hay que distinguir donde hay un 1 y donde hay un 0, pero no dices qué es lo que hay que hacer en cada caso.

Podríamos suponer que nos lo da el usuario. Entonces se lo preguntas (un print con el mensaje y esperamos su respuesta leyendo el teclado con <>). Le preguntaremos por una fila y una columna. Comprobaremos que ha introducido unas coordenadas iguales o inferiores al número leído antes. Sino, repetimos hasta que (while) así sea.

Luego, con el dato de la fila, hacemos un bucle (for) por esa cantidad. La última fila leída es la que nos interesa. Luego, con el dato de la columna debemos mirar dentro de la fila.

Para ello, como los números dentro de la fila están separados con un simple blanco, convertimos la fila en una lista de valores con la ayuda de split. Por medio de un acceso a la lista usando el número de columna como índice dentro de ella, accederemos al dato que buscamos.

Finalmente, con un if le diremos al usuario si era un 0 o un 1 o un mensaje similar.

¡Adelante!

Hola, de momento llevo:

Código: Seleccionar todo

#!/usr/bin/perl
print "Escribe el nombre del archivo de entrada: ";
chop ($entrada=<STDIN>);
print "Escribe el nombre del archivo de salida: ";
chop ($salida=<STDIN>);

open (ENTRADA,"<$entrada");
open (SALIDA,">$salida");
print $linea=<ENTRADA>   

pero es en esa ultima linea donde me atasco, pues no sabria como seguir para que me lellera la sigueinte fila del fichero..

Una ayudita!!!

A ver...

Si conlees una línea, conlees la siguiente, ¿no?

Lo primero darte las gracias por la ayuda. Lo segundo: Consigo ponerme en la linea que me interesa del fichero pero una vez allí no sé cómo hacer para guarda los cuatro números de una fila en un array, para posteriormente recorrerlo y ver si son 0 ó 1.
Pongo aquí lo que llevo de código:

Sería algo parecido a esto.

Hay un método muy fácil para trabajar esto y es usando read() y un tipo de archivo determinado, para poder trabajar matrices de diversos tamaños y no tener que evaluar y hacer una condición para cada posibilidad.

Si te interesa te mando el código.