Il est très simple d'imprimer une liste de tous les fichiers d'un répertoire à l'aide de la fonction intégrée Perl glob. Regardons un court script qui globe et imprime une liste de tous les fichiers, dans le répertoire contenant le script lui-même.
#! / usr / bin / perl -w
@files =;
foreach $ file (@files)
imprimer le fichier $. "\ n";
Lorsque vous exécutez le programme, vous verrez qu'il affiche les noms de fichiers de tous les fichiers du répertoire, un par ligne. Le glob se passe sur la première ligne, comme le caractères tire les noms de fichiers dans le tableau @files.
@files =;
Ensuite, vous utilisez simplement une boucle foreach pour imprimer les fichiers dans le tableau.
Vous pouvez inclure n'importe quel chemin dans votre système de fichiers entre les marques. Par exemple, supposons que votre site Web se trouve dans le répertoire / var / www / htdocs / et que vous souhaitez une liste de tous les fichiers:
@files =;
Ou si vous voulez juste une liste des fichiers avec l'extension .html:
@files =;