Foro - Perl en Español

¿Cómo se puede generar un fichero durante la ejecución de un programa, y escribir los resultados del programa en él?

El fichero lo abres con open() y lo cierras con close(). Entre medias, usas print() para sacar información al fichero.

Me parece que no me he explicado bien.

Lo que quiero es que durante la ejecución del programa se cree un fichero que antes de empezar no existía y que se almacenen en él los resultados del programa.

Buenas, espero no equivocarme, pero creo que sería:


Podemos usar el signo
< o ninguno delante del fichero, para lectura
> para nuevo archivo
>> para añadir al archivo

También podrías poner un nombre al archivo que recoja una variable escalar:



Espero que te sirva de ayuda.

Saludos desde Cádiz

Muchas gracias, Ubuntu, me sirvió de mucho te ayuda. Un saludo

ubuntu escribiste:Buenas, espero no equivocarme, pero creo que sería:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1. open(pepito,">pepito.txt");

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

¡Hay que actualizar un poco ese Perl!

Hace años que Perl soporta la variante de open con tres argumentos (o más, en ciertos casos) que evita muchos problemas de seguridad.

También es aconsejable utilizar variables léxicas para los manejadores de ficheros en vez de los viejos GLOBs.


Y ya puestos, un gran invento reciente es el modulo autodie que nos ahorra toda la gestión de errores como ese die ... que acabo de poner (el autor del módulo, Paul Fenwick, lo presentó en la última YAPC::Europe de manera totalmente desternillante, pero aún no se ha publicado el vídeo de la misma para infortunio de los que no lo vieron "Live").

Volviendo al hilo del mensaje, una opción a veces más sencilla para enviar toda la salida de un programa a un fichero es redirigir directamente STDOUT:


Con esto nos evitamos tener que pasar a print (y demás funciones de salida) el manejador de fichero explícitamente.

Algo similar se puede hacer con la función select($fh), pero lo cierto es que no es una solución muy popular probablemente porque no funciona bien con librerías externas que usan directamente las funciones de IO de C (el stdio de toda la vida) y no las de Perl.

En cualquier caso y por si las moscas alguien no lo sabe, la forma mas fácil de redirigir la salida de un programa (escrito en Perl o en cualquier otra cosa) a un fichero es desde la shell: