¿Cómo puedo verificar si existe un archivo en Perl?

Question

que tienen una ruta relativa

$base_path = "input/myMock.TGZ"; 

myMock.TGZ es el nombre de archivo que se encuentra en la carpeta de entrada. El nombre del archivo puede cambiar. Pero la ruta siempre se almacena en $base_path.

Necesito comprobar si el archivo existe en $base_path.

Answer 1

Compruebe si algo existe en una ruta dada usando el operador de prueba de archivo -e.

print "$base_path exists!\n" if -e $base_path; 

Sin embargo, esta prueba es probablemente más amplia de lo que esperaba. El código anterior generará resultados si existe un archivo simple en esa ruta, pero también se activará para un directorio, una tubería con nombre, un enlace simbólico o una posibilidad más exótica. See the documentation para más detalles.

Dada la extensión de .TGZ en su pregunta, parece que espera un archivo simple en lugar de las alternativas. El operador de prueba de archivo -f pregunta si una ruta conduce a un archivo simple.

print "$base_path is a plain file!\n" if -f $base_path; 

La documentación perlfunc cubre la larga lista de Perl's file-test operators que cubre muchas situaciones que se encontrará en la práctica.

• -r
  archivo es legible por efectivos UID/GID.
• -w
  El archivo se puede escribir mediante uid/gid efectivo.
• -x
  El archivo es ejecutable por uid/gid efectivo.
• -o
  El archivo es propiedad de effective uid.
• -R
  archivo es legible por bienes UID/GID.
• -W
  El archivo puede ser escrito por uid/gid real.
• -X
  El archivo es ejecutable por uid/gid real.
• -O
  El archivo es propiedad de real uid.
• -e
  Existe el archivo.
• -z
  El archivo tiene un tamaño cero (está vacío).
• -s
  El archivo tiene un tamaño distinto de cero (devuelve el tamaño en bytes).
• -f
  El archivo es un archivo simple.
• -d
  Archivo es un directorio.
• -l
  archivo es un enlace simbólico (falso si los enlaces simbólicos no son compatibles con el sistema de archivos).
• -p
  El archivo es una tubería con nombre (FIFO) o Filehandle es una tubería.
• -S
  El archivo es un zócalo.
• -b
  El archivo es un archivo especial de bloque.
• -c
  El archivo es un archivo especial de caracteres.
• -t
  Filehandle está abierto a un tty.
• -u
  El archivo tiene setuid bit set.
• -g
  El archivo tiene setgid bit set.
• -k
  El archivo tiene un conjunto de bits adhesivos.
• -T
  archivo es un archivo de texto ASCII o UTF-8 (conjetura heurístico).
• -B
  archivo es un archivo “binario” (opuesto de -T).
• -M
  Tiempo de inicio del script menos el tiempo de modificación del archivo, en días.
• -A
  Lo mismo para el tiempo de acceso.
• -C
  Lo mismo para el tiempo de cambio del inode (Unix, pueden ser diferentes para otras plataformas)

Answer 2

if (-e $base_path) 
{ 
# code 
} 

-e es el operador de la 'existencia' en Perl.

Puede verificar permisos y otros atributos usando el código en this page.

Answer 3

que puede utilizar: if(-e $base_path)

Answer 4

Es posible que desee una variante de perldoc existe ... -f "-f"

 -X FILEHANDLE 
     -X EXPR 
     -X DIRHANDLE 
     -X  A file test, where X is one of the letters listed below. This unary operator takes one argument, 
       either a filename, a filehandle, or a dirhandle, and tests the associated file to see if something is 
       true about it. If the argument is omitted, tests $_, except for "-t", which tests STDIN. Unless 
       otherwise documented, it returns 1 for true and '' for false, or the undefined value if the file 
       doesn’t exist. Despite the funny names, precedence is the same as any other named unary operator. 
       The operator may be any of: 

        -r File is readable by effective uid/gid. 
        -w File is writable by effective uid/gid. 
        -x File is executable by effective uid/gid. 
        -o File is owned by effective uid. 

        -R File is readable by real uid/gid. 
        -W File is writable by real uid/gid. 
        -X File is executable by real uid/gid. 
        -O File is owned by real uid. 

        -e File exists. 
        -z File has zero size (is empty). 
        -s File has nonzero size (returns size in bytes). 

        -f File is a plain file. 
        -d File is a directory. 
        -l File is a symbolic link. 
        -p File is a named pipe (FIFO), or Filehandle is a pipe. 
        -S File is a socket. 
        -b File is a block special file. 
        -c File is a character special file. 
        -t Filehandle is opened to a tty. 

        -u File has setuid bit set. 
        -g File has setgid bit set. 
        -k File has sticky bit set. 

        -T File is an ASCII text file (heuristic guess). 
        -B File is a "binary" file (opposite of -T). 

        -M Script start time minus file modification time, in days. 

Answer 5

Usar:

if (-f $filePath) 
{ 
    # code 
} 

-e devuelve verdadero incluso si el archivo es un directorio. -f sólo devolverá verdadero si se trata de un archivo real

Answer 6

#!/usr/bin/perl -w 

$fileToLocate = '/whatever/path/for/file/you/are/searching/MyFile.txt'; 
if (-e $fileToLocate) { 
    print "File is present"; 
} 

Answer 7

Utilice el código de abajo. Aquí cheques -F, que es un archivo o no:

print "File $base_path is exists!\n" if -f $base_path; 

y disfrutar de

Answer 8

if(-e $base_path){print "Something";} 

que hacer el truco