Alle Dateien aus Verzeichnis auslesen: Hätte gern einen Codeteil anders - #3703 (Perl/CGI)

renee

2005-09-28 17:37

User since
2003-08-04
14371 Artikel
ModeratorIn

Wenn Du nur aus einem Verzeichnis die darin enthaltenen Verzeichnisse auslesen willst, dann würde ich nicht CPAN:

File::Find nehmen. Ich würde das so machen:

Code: (dl )

1
2
3

opendir(DIR,$dir) or die $!;
my @dirs = map{$dir.'/'.$_}grep{-d $_ && $_ !~ /^\.\.?$/}readdir(DIR);
closedir(DIR);