Cómo saber si un archivo existe en Perl

Perl tiene un conjunto de operadores útiles de prueba de archivos que se pueden usar para ver si un archivo existe o no. Entre ellos es -mi, que comprueba si existe un archivo. Esta información podría serle útil cuando trabaje en un script que necesite acceder a un archivo específico y desee asegurarse de que el archivo esté allí antes de realizar operaciones. Si, por ejemplo, su script tiene un registro o un archivo de configuración del que depende, verifíquelo primero. El siguiente script de ejemplo arroja un error descriptivo si no se encuentra un archivo usando esta prueba.

#! / usr / bin / perl
$ filename = '/path/to/your/file.doc';
if (-e $ filename) 
imprimir "¡El archivo existe!";

Primero, crea una cadena que contiene la ruta al archivo que desea probar. Entonces envuelves el -mi (existe) declaración en un bloque condicional para que la declaración de impresión (o lo que sea que coloque allí) solo se invoque si el archivo existe. Puede probar lo contrario, que el archivo no existe, utilizando el a no ser que condicional:

a menos que (-e $ nombrearchivo) 
print "¡El archivo no existe!";

Otros operadores de prueba de archivos

Puede probar dos o más cosas a la vez utilizando los operadores "y" (&&) o "o" (||). Algunos otros operadores de prueba de archivos Perl son:

• -r comprueba si el archivo es legible
• -w comprueba si el archivo es grabable
• -X comprueba si el archivo es ejecutable
• -z comprueba si el archivo está vacío
• -F comprueba si el archivo es un archivo sin formato
• -re comprueba si el archivo es un directorio
• -l comprueba si el archivo es un enlace simbólico

El uso de una prueba de archivo puede ayudarlo a evitar errores o informarle de un error que debe corregirse.