nicht angemeldet
Hallo Michael und Stefan,
hab mir selbs ein script gezaubert, natürlich mit Hilfe von SELFHTML Seiten:
DANKE !!!
#!/usr/bin/perl
my $Verzeichnis = ".";
opendir(DIR, $Verzeichnis) || die "$Verzeichnis: $!";
my @Eintraege = 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(@Eintraege) {
print "<a href="$_">$_</a><br>\n";
}
print "</body></html>\n";
Ist noc erweiterbar, aber er funzt!
Viele Grüße Sergej