domingo, 28 de noviembre de 2010

Manejo de archivos en perl

Hola aqui andamos de nuevo en esta ocacion se mostrara el uso de archivos en el lenguaje perl:
En este codigo lo que hace es que ya tenemos creado un archivo llamado calificaciones y en caso de no tenerlo te lo genera, y lo que hace es meter mas calificaciones y guardarlas sin destruir el archivo
Codigo

#! /usr/bin/env perl -w



print "Cuantos calificaciones quieres agregar: \n";
$n=<STDIN>;
chop($n);

for($x=1; $x <= $n; $x = $x+1)


print "DIme la calificacion que quieres agreagar\n";
$linea=<STDIN>;
chop($linea);

##// aqui abre el archivo y las ">>" significan que lo creo o lo abra
open(archivo,">>Calificaciones.txt"); 
##// aqui le desimos que en el "archivo" este sirve estilo puntero que lo guarde
print archivo "$linea\n";

}
                       
    ##// aqui cerramos el archivo
close(archivo);


Imagen como siempre:

1 comentario: