Comment savoir si un fichier existe en Perl

Perl dispose d'un ensemble utile d'opérateurs de test de fichiers qui peuvent être utilisés pour voir si un fichier existe. Il y a -e dedans, qui vérifie si le fichier existe. Ces informations peuvent vous être utiles lorsque vous travaillez avec un script qui nécessite l'accès à un fichier spécifique et que vous souhaitez vous assurer que le fichier existe avant d'effectuer une opération.

Par exemple, si votre script a un journal ou un fichier de configuration dépendant, vérifiez-le d'abord. L'exemple de script ci-dessous génère une erreur descriptive si le fichier n'est pas trouvé à l'aide de ce test.

#!/usr/bin/perl
$filename = '/path/to/your/file.doc';
if (-e $filename) {
print "File Exists!";
}

Tout d'abord, créez une chaîne contenant le chemin d'accès au fichier que vous souhaitez tester. Enveloppez ensuite l'instruction -e(exists) dans un bloc conditionnel afin que l'instruction print (ou tout ce que vous y mettez) ne soit appelée que si le fichier existe. Vous pouvez tester l'inverse - le fichier n'existe pas - en utilisant une condition à moins :

unless (-e $filename) {
print "File Doesn't Exist!";
}

Autres opérateurs de test de fichier

Vous pouvez utiliser "et" (&&) ou "ou" ( ||) teste deux choses ou plus à la fois. Certains autres opérateurs de test de fichiers Perl sont :

Vérifiez si le fichier est lisible

w Vérifiez si le fichier est accessible en écriture

-x Vérifiez si le fichier est exécutable

-z Vérifiez si le fichier est vide

f Vérifiez si le fichier est un fichier normal

-d Vérifiez si le fichier est un répertoire

l Vérifiez si le fichier est un lien symbolique

L'utilisation des tests de fichiers peut vous aider à éviter les erreurs ou vous faire prendre conscience des erreurs qui doivent être corrigées.

Recommandations associées : "Tutoriel Perl"//m.sbmmt.com/course/list/39.html

Cet article Cet article concerne la méthode permettant de déterminer si un fichier existe en Perl. J'espère qu'il sera utile aux amis dans le besoin !

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!