Foro - Perl en Español

¡Buenos días a todos y todas!

Bueno, soy bastante novato en Perl... ya he hecho algunos scripts pero a partir de alguno ya creado, pero me faltan muchas cositas por ver

Ahora tengo un problemita y no logro solucionarlo. Los scripts que hago son para lanzar configuraciones en enrutadores. Para pocas líneas de código del enrutador, éstas las meto en el mismo script, pero cuando tengo una configuración de 100 líneas, quisiera que el script fuera leyendo desde un archivo de texto y no sé cómo decirle "lee línea, pega... lee, pega..." ahora lo hago así:


¡¡Gracias!!

Saludos, Iñaki

Lo que tienes que hacer es abrir (open) el fichero con las líneas de instrucciones como un fichero de texto normal, e ir leyendo línea a línea su contenido.

Ejemplo:

De todas formas, en el Tutorial del open tienes una buena introducción.

Otra forma: no indicar el fichero de órdenes en el código. Piensa que lo ideal sería: tener un programa que se conectara al enrutador y las líneas con las órdenes vienen de un fichero de texto que se lo paso al programa por la entrada estándar. Algo así como: perl envia.pl ordenes.txt

Lo que tengo que hacer entonces es leer las líneas que me van llegando por la entrada estándar. Perl abre el fichero que le hemos pasado como argumento y nos lo va dando por líneas:
y ya está, sin hacer open() ni close(). Y nos servirá para muchas más situaciones, con sólo tener distintos ficheros de órdenes.

¡¡Hola!!

¡¡¡¡Muchas gracias, explorer!!!! :D:D:D

El open() y close() lo utilizaba para leer IP de archivos de texto o crear otros en el caso de que no pudiera conectarme. Me quedaba el problema de hacer otro archivo para leer las líneas y lanzarlas, ¡je,je,je!

¡Muchísimas gracias! ::D:D


iñaki