Hallo,ich rufe über eine Schleife immer folgenden Quellcode mit einem Pfad als Parameter auf:
$lPath=$_[0];
if (-d "$lPath") {
opendir(DIR, "$lPath");
@dir = readdir(DIR);
closedir(DIR);
foreach my $a(@dir)
{
open(FILE, "< $lPath\\$a") || die "Cannot open file: $lPath\\$a - $!";
print <FILE>;
close(FILE);
}
}else {print "ERROR";}
Jetzt hab ich das Problem, dass er mir nur einmal die Verzeichnisstrucktur über readdir gibt.
Wenn ich die Funktion ein zweites mal aufrufe, gibt er mir diese nicht mehr zurück und das Array @dir ist leer.
löschen ich jetzt aber folgende Zeile:
@file = <FILE>;
funktioniert es einwandfrei. Weiß jemand wieso ich die Verzeichnissebene nicht bekomme, wenn ich einfach versuche eine Datei zu öffnen ?
Gruß Jonas
Datum: 04.07.2005-13:53
Readdir funktioniert in einer Schleife nur einmal.
