Comment distinguer les fichiers des répertoires en Perl

Supposons que vous construisiez un script Perl pour parcourir un système de fichiers et enregistrer ce qu'il trouve. Lorsque vous ouvrez un descripteur de fichier, vous devez savoir si vous avez affaire à un fichier réel ou à un répertoire, que vous pouvez traiter différemment. Vous voulez un répertoire pour pouvoir continuer à analyser le système de fichiers de manière récursive. Le moyen le plus rapide de distinguer un fichier d'un répertoire est d'utiliser l'opération de test de fichier intégrée à Perl. Perl possède des opérateurs qui peuvent être utilisés pour tester différents aspects d'un fichier. L'opérateur -f est utilisé pour identifier les fichiers normaux plutôt que les répertoires ou autres types de fichiers.

Étude de référence recommandée : "Tutoriel Perl"

Utilisez le fichier -f pour tester l'opérateur

#!/usr/bin/perl -w
$filename = '/path/to/your/file.doc';
$directoryname = '/path/to/your/directory';
if (-f $filename) {
print "This is a file.";
}
if (-d $directoryname) {
print "This is a directory.";
}

Tout d'abord, créez deux chaînes : l'une pointant vers le fichier et l'autre pointant vers le répertoire. Ensuite, $filename est testé à l'aide de l'opérateur -f, qui vérifie si quelque chose est un fichier.

Cela affichera "Ceci est un fichier". Si vous essayez l'opérateur -f sur un répertoire, rien ne s'imprimera.

Ensuite, faites l'inverse pour $directoryname et confirmez qu'il s'agit bien d'un répertoire. Combinez-le avec le répertoire glob pour trier quels éléments sont des fichiers et lesquels sont des répertoires :

#!/usr/bin/perl -w
@files = <*>;
foreach $file (@files) {
if (-f $file) {
print "This is a file: " . $file;
}
if (-d $file) {
print "This is a directory: " . $file;
}
}

Cet article explique comment distinguer les fichiers des répertoires en Perl. J'espère qu'il sera utile aux amis qui en ont besoin. . Aide!

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!