Abrir un fichero

Para abrir una conexión se utiliza el operador open. Por ejemplo:

if (open FILE, "alus.txt"   ) { ... # Para lectura   }
if (open FILE, "<alus.txt"  ) { ... # Para lectura   }
if (open FILE, ">alus.txt"  ) { ... # Para escritura }
if (open FILE, ">>alus.txt" ) { ... # Para añadir    }

El operador open devuelve verdadero o falso, dependiendo de si la operación pudo realizarse con éxito o no.

Se puede usar una expresión escalar en lugar del especificador de fichero. Por ejemplo:

my  $outfile = "alu.txt";
open FILE, "> $outfile";

Observe el espacio después del ``mayor que''. Asi se evitan extrañas conductas, si por ejemplo $outfile es algo asi como >alu.txt, se podriá producir un append (esto es >>) en vez de una escritura (>).

Casiano Rodríguez León
Licencia de Creative Commons
Principios de Programación Imperativa, Funcional y Orientada a Objetos Una Introducción en Perl/Una Introducción a Perl
por Casiano Rodríguez León is licensed under a Creative Commons Reconocimiento 3.0 Unported License.

Permissions beyond the scope of this license may be available at http://campusvirtual.ull.es/ocw/course/view.php?id=43.
2012-06-19