kurzes problem mit opendir() und readdir() - #104555 (Allgemeines zu Perl)

pracetzy

2008-01-09 21:49

User since
2007-12-19
9 Artikel
BenutzerIn
[default_avatar]

hi,
ich bin ratlos:

Code (perl): (dl )

my $size;
opendir DH, "test" or die "not opened";
while($_ = readdir(DH)) {
        $size = -s $_;
        print "error with size of following file: " unless $size;
        print $_;
        print "\n";
}

(sieht bisschen unordentlich und uneffizient aus, aber war nur ein versuch)
bei mir liefert er für -s $_ keinen wert wieder, vor jeder datei steht "error".
warum, wenn er $_, den aktuellen dateinamen aber ausgibt?
was hab ich übersehen?
danke
prcy