Creación de Ficheros en Perl

¿Se puede crear ficheros en Perl?

Sí, se puede. A continuación haremos un programa en Perl, que creará un fichero .txt con datos en su interior, los cuales se los pasaremos por una matriz asignada manualmente en el mismo programa Perl.

Paso a Paso

Primero de todo, crearemos el fichero, en nuestro caso se llamará prueba.pl.

Le daremos los permisos necesarios para ello con un chmod +x prueba.pl como venimos haciendo en todas las entradas de Perl.

Una vez dentro, escribiremos el siguiente código:

@datos=("Perro","Gato","Elefante","Pingüino","Suricata");
@registro=join(",",@datos);
open (SomosBinarios,">somos_binarios.txt");
foreach $campo (@registro)
{
print SomosBinarios $campo;
}
print SomosBinarios "\n";
close (SomosBinarios);

Lo ejecutamos mediante Perl nombre_de_script.pl, en nuestro caso perl prueba.pl.

perl prueba.pl

hacemos un ls o un ls -l para comprobar que sí ha creado el fichero somos_binarios.txt.

comprobemos que los datos asignados en la matriz, los ha puesto dentro del archivo creado .

Explicación del Script

@datos: Es una matriz, llamada datos, que contiene los datos que queremos poner en el documento con formato TXT, asignados manualmente dentro del Script.

@registro=join(“,”,@datos); Le decimos que, los datos a insertar los hemos separado por una coma (,) y los inserte en la matriz @registro.

open (SomosBinarios,”>somos_binarios.txt”);  Crea un archivo con nombre físico llamado somos_binarios.txt, y su nombre lógico será SomosBinarios. En el caso que en vez de crear, quisiéramos añadir el contenido a un archivo ya creado, tendríamos que usar >> en vez de  > , con eso lo pondrá en la última línea del archivo que le especifiquemos.

foreach $campo (@registro)   :  Guarda el primer dato de la matriz registro en la variable $campo

{
print SomosBinarios $campo;  :  Escribe la variable campo en el archivo que tiene el nombre lógico SomosBinarios
}                                               : Repite el bucle hasta que la matriz registro no contiene datos.

print SomosBinarios “\n”;      En el caso que hayan más registros o matrices, hará un salto de línea (   \n)

close (SomosBinarios);      Cerramos el fichero SomosBinarios.