Perl: Manejo de archivos

Otra función necesaria cuando se realizan programas es la lectura/escritura de archivos.
En Perl se maneja de la siguiente manera.

En la variable $archivo1 se guarda el nombre del archivo entre comillas.

$archivo1=”notas.txt”;

open(ARCHIVO1,"<",$archivo1) or die “mensaje al usuario: $!”;	Leer archivo y asignarlo al manejador ARCHIVO1.
open(ARCHIVO2,">",$archivo2) or die “mensaje al usuario: $!”;	Escribir en archivo utilizando el manejador ARCHIVO2.
open(FINAL,">>",$arFinal) or die “mensaje al usuario: $!”;	Insertar al final del archivo sin borrar el contenido completo del mismo, utilizando el manejador de archivos FINAL.

 Se puede utilizar la función print para escribir en los archivos. Ej:

print FINAL $ar,"\n";

Para recorrer el archivo y mostrarlo en pantalla se utiliza un ciclo como este:

        while( < ARCHIVO1 > ){
            print $_;
        }

Donde ARCHIVO1  es el manejador de archivo utilizado en la función

open(ARCHIVO1,"<",$archivo1) or die "mensaje al usuario: $!"

Un ejemplo de una función que realiza un recorrido de archivo e imprime en otro.

##################################################
#Realiza una copia a aun archivo temporal
##################################################
sub copiarArchivo{
        my ($archivo1,$archivo2)=@_;
        print $archivo1;
        open(ARCHIVO1,"<",$archivo1) or die;
        open(ARCHIVO2,">",$archivo2) or die;        
        while(< ARCHIVO1 >){
            print ARCHIVO2 $_;
        }
        close(ARCHIVO1);
        close(ARCHIVO2);            
}

Fin del articulo