Wie bekomme ich eine Verzeichnisliste in Perl?

Question

Ich möchte ls in einem Perl-Programm als Teil eines CGI-Skripts ausführen. Dazu habe ich exec(ls) verwendet, aber dies kommt nicht vom exec Anruf zurück.

Gibt es eine bessere Möglichkeit, eine Auflistung eines Verzeichnisses in Perl zu erhalten?

Answer 1

Exec kehrt überhaupt nicht zurück. Wenn Sie das wollten, benutzen Sie das System.

Wenn Sie nur ein Verzeichnis lesen möchten, ist open/read/close-dir möglicherweise besser geeignet.

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

Answer 2

Um die Ausgabe eines Systembefehls zu erhalten, müssen Sie Backticks verwenden.

$listing = `ls`; 

Perl ist jedoch gut im Umgang mit Verzeichnissen für sich. Ich würde empfehlen, File :: Find :: Rule zu verwenden.

Answer 3

exec nicht geben Steuerung zurück zum Perl-Programm. System wird, aber es gibt nicht die Ergebnisse eines ls zurück, es gibt einen Statuscode zurück. Tick-Markierungen `` wird Ihnen die Ausgabe unseres Befehls geben, wird aber von einigen als unsicher angesehen.

Verwenden Sie die integrierten Verzeichnisfunktionen. opendir, readdir und so weiter.

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

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

Answer 4

Ich würde Ihnen empfehlen, einen Blick auf IPC::Open3 haben. Es erlaubt viel mehr Kontrolle über den erzeugten Prozess als das System oder die Backticks.

Answer 5

Alle anderen scheint auf der Exec-Teil der Frage stecken.

Wenn Sie eine Verzeichnisliste benötigen, verwenden Sie die in Perl integrierte glob oder opendir. Sie benötigen keinen separaten Prozess.

Answer 6

Unter Linux, ziehe ich es finden:

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

Answer 7

Noch ein anderes Beispiel:

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

Answer 8

EDIT: Whoops! Ich dachte, Sie wollten nur eine Liste der Verzeichnisse ... entfernen Sie den 'Verzeichnis' Anruf, um dieses Skript zu machen, was Sie wollen ...

Spielen mit Dateihandles ist meiner Meinung nach der falsche Weg. Im Folgenden finden Sie ein Beispiel für die Verwendung von File :: Find :: Rule, um alle Verzeichnisse in einem angegebenen Verzeichnis zu finden. Es scheint, als ob Sie für das, was Sie tun, über töten, aber später auf der ganzen Linie kann es sich lohnen.

Zuerst meine eine Zeile Lösung:

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

Jetzt eine herausgezogen Version mit Kommentaren. Wenn Sie File :: Find :: Rule installiert haben, sollten Sie dies problemlos ausführen können. Fürchte die CPAN nicht.

#!/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

Verwenden Perl Globbing:

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