Cómo saber si un archivo existe en Perl

perl tiene un conjunto de operadores de prueba de archivos útiles que se pueden usar para ver si un archivo existe o no. entre ellos está -e , que verifica si existe un archivo. esta información podría ser útil para usted cuando está trabajando en un script que necesita acceso a un archivo específico y desea 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) { 
print "¡el archivo existe!"; 
}

primero, crea una cadena que contiene la ruta al archivo que desea probar. luego envuelve la instrucción -e (existe) en un bloque condicional para que la instrucció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, mediante el uso de a menos que sea condicional:

a menos que (-e $ filename) { 
print "¡el archivo no existe!"; 
}

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
• -d 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.