nicht angemeldet
Hallo zusammen.
Ich habe folgendes Problem: Ich möchte mit Perl einen mini Dateibrowser realisieren. Ich muss ein Verzeichnis öffnen können, dort enthaltene Verzeichnise und Dateien lesen und im Browser ausgeben (spreche da von PDF und EXE Dateien).
Wie ich ein Verzeichis öffne und lese ist mir klar:
opendir(DIR, $dir) || die "$dir: $!";
my @read = readdir(DIR);
closedir(DIR);
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Testausgabe</title></head><body>\n";
foreach(@read) {
print "$_<br>\n";
}
print "</body></html>\n";
---
Nur wie kann ich nun ermitteln ob es sich um ein Verzeichnis oder Datei handelt? Eine Datei müsste ich ja jetzt via Link öffnen oder wenn es sich um ein Verzeichnis handelt das neue Verzeichnis einlesen und ausgeben.
Kann mir da jemand helfen? Oder kennt jemand ein Script, welches genau dies macht?
Herzlichen Dank und Gruss
KAI