Verzeichnisse auslesen

[Lars]

Hallo,

ich möchte auf meinem Linux Fileserver Verzeichnisse auslesen, um unter anderen die größe der Verzeichnisse zu bestimmen. Ich habe leider mit Perl noch keine großen Erfahrungen gemacht, und scheitere jetzt schon bei einfach Tests.

Hier, was ich bis jetzt probiert habe:

#!/usr/bin/perl -w

sub dirindex
{
        my($dir, $level) = @_;

printf "Öffne Verzeichnis $dir\n";
        opendir(VERZEICHNIS, $dir);
        @inhalt = readdir(VERZEICHNIS);
        print "@inhalt\n\n";
        foreach $Name (@inhalt)
        {
                print "$Name ", -d $Name ? " ein Verzeichnis\n" : "kein Verzeich
nis\n";
        }
        closedir(VERZEICHNIS);

}
dirindex './dir/', 1;
-----------------------------------------------------------

Das ganze soll mal rekursiv laufen und alle Verzeichnisse durchackern. Nur leider gelingt schon nicht die Prüfung, ob es sich um eine Datei oder ein Verzeichnis handelt. Das Program behauptet steif und fest, das Verzeichnisse Dateien sind.
Stellt sich die Frage, was mache ich falsch?

Danke für eure Hilfe schon mal im vorraus,

Lars