Entrada y salida de archivos, lo básico

En esta lección abrirás un archivo y lo leerás línea a línea.

open(my $fh, '<', 'archivo') abre el archivo para lectura y deja un manejador en $fh; el < indica el modo, y sería > para escribir o >> para añadir al final. El operador <$fh> lee una línea, y close() cierra el archivo.

El código de ejemplo lee un archivo de registro entero mostrando cada línea. En esta página no hay archivos reales, así que lo que ves es la forma habitual del código y la salida que produciría con un registro vacío.

Lo importante de esta lección es el or die. Si el archivo no existe o no tienes permiso, open devuelve falso y el guion continúa tan campante leyendo de la nada, dando resultados vacíos sin explicación. Ese or die "no se puede abrir: $!" detiene el programa en el punto exacto del problema, y la variable $! contiene el motivo que da el sistema operativo. En Perl no es una precaución opcional: es la costumbre establecida.

Fíjate también en que se lee línea a línea y no de golpe. Un archivo de registro de varios gigabytes se procesa así sin problema, mientras que cargarlo entero en memoria tumbaría el proceso. Es el patrón que hace de Perl una herramienta seria para administrar servidores.