Calocybe: Verzeichnisse in einem Verzeichnis zählen

Beitrag lesen

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