martes, 2 de abril de 2013

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

No hay comentarios:

Publicar un comentario