Hallo zusammen,

ich habe ein Problem mit dem Modul File::Find::Rule. Ich möchte hier in einem Verzeichnis alle einen Level darunter liegenden Verzeichnisse anlisten lassen.
Wenn ich die Doku hierzu lese würde ich das Script wie folgt aufbauen (sieht aber schlecht aus):

use File::Find::Rule;
# find all the subdirectories of a given directory
$directory = "/home";
my @subdirs = File::Find::Rule->directory->in( $directory )
->maxdepth( 1 );
foreach $dir (@subdirs) {
print "$dir \n";
}

Leider fuktioniert dieses nicht. Lasse ich die maxdepth Zeile weg, läuft das Script, listet aber alle Unterverzeichnisse an.

Wer kann hier helfen?

Besten Dank im Voraus

Gruß
Franz-Josef