Hallo,
ich versuche mit readdir mehrere Verzeichnisse auszulesen.
readdir vor einer Schleife klappt problemlos. readdir in einer Schleife ergibt keinerlei Ausgabe:
opendir(DIR, "../updates/inhalte");
my @Eintraege = readdir(DIR);
closedir(DIR);
foreach(@Eintraege) {
print "$\_
\n";
}
^- klappt
open(DATEI, ";
close(DATEI);
foreach(@Zeilen) {
if( $\_ =~ /$aktuell/) {
my @strSplit = split(/=/, $\_);
print @strSplit[2]; #soweit erstmal nicht wichtig! in @strSplit[2] steht nur "/updates/inhalte/00x"
my $strTemp = $\_;
my $strTemp2 = "..".@strSplit[2];
opendir(DIR, "$strTemp2") || die "@strSplit[2]: $!";
@strDir = readdir(DIR);
closedir(DIR);
foreach(@strDir) {
print "$\_";
}
}
}
^- klappt nicht
Wieso? Ich hab auch schon versucht, mit chroot und chdir die Verzeichnisse umzubiegen. Hat aber alles nichts gebracht.
Ein Aufruf der ersten Funktion nach der Schleife gibt auch keine Ausgabe mehr!
Danke und Ciao! Bjoern