web-dev-qa-db-fra.com

Comment puis-je vérifier si un fichier existe en Perl?

J'ai un chemin relatif

   $base_path = "input/myMock.TGZ";

myMock.TGZ est le nom du fichier situé dans le dossier d'entrée. Le nom de fichier peut changer. Mais le chemin est toujours stocké dans $base_path.

Je dois vérifier si le fichier existe dans $base_path.

perl
106
superstar

Testez si quelque chose existe à un chemin donné en utilisant l'opérateur de test de fichier _-e_.

_print "$base_path exists!\n" if -e $base_path;
_

Cependant, ce test est probablement plus large que prévu. Le code ci-dessus générera une sortie si un fichier brut existe dans ce chemin, mais il se déclenchera également pour un répertoire, un canal nommé, un lien symbolique ou une possibilité plus exotique. Voir la documentation pour plus de détails.

Étant donné l'extension de _.TGZ_ dans votre question, il semble que vous attendiez un fichier simple plutôt que les alternatives. L'opérateur de test de fichier _-f_ demande si un chemin d'accès mène à un fichier brut.

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

La documentation de perlfunc couvre la longue liste de opérateurs de test de fichiers de Perl , qui couvre de nombreuses situations que vous rencontrerez dans la pratique.

  • -r
    Le fichier est lisible par uid/gid effectif.
  • -w
    Le fichier est accessible en écriture avec uid/gid effectif.
  • -x
    Le fichier est exécutable par uid/gid effectif.
  • -o
    Le fichier appartient à uid effectif.
  • -R
    Le fichier est lisible par real uid/gid.
  • -W
    Le fichier est accessible en écriture pour real uid/gid.
  • -X
    Le fichier est exécutable par real uid/gid.
  • -O
    Le fichier appartient à l'utilisateur réel.
  • -e
    Le fichier existe.
  • -z
    La taille du fichier est nulle (elle est vide).
  • -s
    La taille du fichier est différente de zéro (la taille en octets est renvoyée).
  • -f
    Le fichier est un fichier brut.
  • -d
    Le fichier est un répertoire.
  • -l
    Le fichier est un lien symbolique (false si les liens symboliques ne sont pas pris en charge par le système de fichiers).
  • -p
    Fichier est un tube nommé (FIFO) ou Filehandle est un tube.
  • -S
    Le fichier est un socket.
  • -b
    Le fichier est un fichier spécial de bloc.
  • -c
    Le fichier est un fichier spécial de caractères.
  • -t
    Le descripteur de fichier est ouvert à un terminal.
  • -u
    Le fichier a le bit setuid défini.
  • -g
    Le fichier a défini le bit défini.
  • -k
    Le fichier a un sticky bit défini.
  • -T
    Le fichier est un fichier texte ASCII ou UTF-8 (estimation heuristique).
  • -B
    Le fichier est un fichier "binaire" (à l’opposé de _-T_).
  • -M
    Heure de début du script moins l'heure de modification du fichier, en jours.
  • -A
    Idem pour le temps d'accès.
  • -C
    Idem pour le temps de changement d'inode (Unix, peut différer pour d'autres plates-formes)
167
Greg Bacon

Vous voudrez peut-être une variante de existe ... perldoc -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.
29
hpavc
if (-e $base_path)
{ 
 # code
}

-e est l'opérateur 'existence' en Perl.

Vous pouvez vérifier les autorisations et autres attributs en utilisant le code sur cette page .

15
mdm

Vous pouvez utiliser: if(-e $base_path)

13
Klaus Byskov Pedersen

Utilisation:

if (-f $filePath)
{
  # code
}

-e renvoie vrai même si le fichier est un répertoire. -f ne renverra que s'il s'agit d'un fichier réel

10
Zain Rizvi
#!/usr/bin/Perl -w

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

ferait l'affaire

5
user5240420

Utilisez le code ci-dessous. Ici -f vérifie, c'est un fichier ou pas:

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

et apprécie

1
Nikhil Ranjan