Comment obtenir une liste de répertoires dans Perl?

Question

Je voudrais exécuter ls dans un programme Perl dans le cadre d'un script CGI. Pour cela j'ai utilisé exec(ls), mais cela ne revient pas de l'appel exec.

Existe-t-il un meilleur moyen d'obtenir une liste d'un répertoire en Perl?

Answer 1

Exec ne revient pas du tout. Si vous le vouliez, utilisez le système.

Si vous voulez juste lire un répertoire, ouvrez/read/close-dir peut être plus approprié.

opendir my($dh), $dirname or die "Couldn't open dir '$dirname': $!"; 
my @files = readdir $dh; 
closedir $dh; 
#print files... 

Answer 2

Pour obtenir la sortie d'une commande système, vous devez utiliser des backticks.

$listing = `ls`; 

Cependant, Perl est bon pour traiter les répertoires pour lui-même. Je recommande d'utiliser File :: Find :: Rule.

Answer 3

exec ne donne pas le contrôle au programme Perl. système va, mais il ne retourne pas les résultats d'un ls, il retourne un code d'état. marques `` vous donnera la sortie de notre commande, mais est considéré par certains comme dangereux.

Utilisez les fonctions intégrées du répertoire. opendir, readdir et ainsi de suite.

http://perldoc.perl.org/functions/opendir.html

http://perldoc.perl.org/functions/readdir.html

Answer 4

Je vous recommande de jeter un oeil à IPC::Open3. Il permet un contrôle beaucoup plus important sur le processus engendré que le système ou les backticks.

Answer 5

Tout le monde semble coincé sur la partie exec de la question.

Si vous souhaitez une liste de répertoires, utilisez le glob intégré de Perl ou le opendir. Vous n'avez pas besoin d'un processus séparé.

Answer 6

Sur Linux, je préfère trouver:

my @files = map { chomp; $_ } `find`; 

Answer 7

Encore un autre exemple:

chdir $dir or die "Cannot chroot to $dir: $!\n"; 
my @files = glob("*.txt"); 

Answer 8

EDIT: Whoops! Je pensais que vous vouliez juste une liste des répertoires ... supprimer l'appel 'répertoire' pour faire de ce script ce que vous voulez ...

Jouer avec des handles de fichiers est la mauvaise façon d'y aller à mon avis. Voici un exemple d'utilisation de File :: Find :: Rule pour trouver tous les répertoires dans un répertoire spécifié. Cela peut sembler plus que tuer pour ce que vous faites, mais plus tard, ça peut valoir le coup.

D'abord, ma solution d'une ligne:

File::Find::Rule->maxdepth(1)->directory->in($base_dir); 

maintenant une version plus tirée des commentaires. Si vous avez installé File :: Find :: Rule, vous devriez être capable de l'exécuter sans problème. Ne craignez pas le CPAN.

#!/usr/bin/perl 

use strict; 
use warnings; 

# See http://search.cpan.org/~rclamp/File-Find-Rule-0.32/README 
use File::Find::Rule; 

# If a base directory was not past to the script, assume current working director 
my $base_dir = shift // '.'; 
my $find_rule = File::Find::Rule->new; 

# Do not descend past the first level 
$find_rule->maxdepth(1); 

# Only return directories 
$find_rule->directory; 

# Apply the rule and retrieve the subdirectories 
my @sub_dirs = $find_rule->in($base_dir); 

# Print out the name of each directory on its own line 
print join("\n", @sub_dirs); 

Answer 9

Utilisez Perl englobement:

my $dir = </dir/path/*>