Verzeichnisebene für Filebrowsing

[Tolwin]

Hallo Hotte,

danke für die Antwort. ich nutze schon die Operationen -f -d an dieser Stelle:

  
sub getFileList {  
 my ($path) = (shift);  
 my %files;  
 opendir(DIR, "/default/main".$path) or die "can't opendir /./default/main$path: $!";  
while (defined(my $file = readdir(DIR))) {  
 if ($path =~ //) {  
 my $permpath = "/iwmnt/default/main".$path;  
 my $filepath = $path."/".$file;  
 $files{$file}{"filepath"} = $filepath;  
 if (-d "/iwmnt/default/main".$filepath) {  
     $files{$file}{"isdir"} = 1;  
 } else {  
     $files{$file}{"isdir"} = 0;  
 }  
}  
}  
closedir(DIR);  
return %files;  
}  

Alle Verzeichnisse und Dateien befinden sich dann in %result. Das gebe ich
dann per foreach Link für Link aus. An dieser Stelle möchte ich dann gerne
nur die erlaubten Verzeichnisse / Links (s. vorherigen Post) ausgeben lassen. Mir geht es weniger um den Aufbau der Datei/Verzeichnisstruktur, sondern um die Bedingung entweder /ordner1 zu erlauben und darunter auch /.. , auch wenn sich in dessen Pfad kein /ordner1 (also /ordner1/..) befindet. Dies wäre erst der Fall, wenn ich noch eine Ebene tiefer gehen würde /ordner1/subordner2/..  - dann wäre im Pfadnamen für /.. auch ordern1 enthalten, was ich ja mit der regex abfrage.

Puhhh .. hoffe, dass ich mich nun etwas deutlicher ausgedrückt habe. =)

Grüße
Tolwin