Verzeichnisse in einem Verzeichnis zählen

[Achim Zimmer]

Der Titel sagt ja schon alles, ich suche einen Teil eines Scripts, mit dem ich Verzeichnisse in einem Unterverzeichnis in Perl zählen und in eine Liste einfügen kann.
Vielen Dank für Eure Lösungsvorschläge!

Achim

[Calocybe]

Hi Achim!

Nur mal schnell hingehackt. Musste mal schauen, ob's ungefaehr geht.

@dirs = ();

sub get_dirs {
        my $dirname = shift;
        my @files;
        my $i;

$dirname = "/usr";
        opendir(DIR, $dirname) die "Can't fetch directory listing for $dirname; Reason: $!";
        @files = readdir(DIR);
        closedir(DIR);

@dirs = (); $i = 0;
        for (@files) {
            if ((-d "$dirname/$_) && (!/^.{1,2}$/)) {
                push @dirs, $_;
                $i++;
            }
        }

return wantarray ? @dirs : $i;
    }

$number_of_directories = getdirs("/usr");

Calocybe

[Achim Zimmer]

Hi Calocybe,

bis auf einen kleinen Schönheitsfehler hat es die Routine getan... Vielen Dank!!!

Beste Grüße

Achim