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