Hallo,
Aber erklaere mir doch bitte, warum .html gefunden wird bei einem Directory-Listing, wo es keine
Datei mit dem Namen '.html' gibt, ich habe es nicht verstanden.
Genau das wundert mich auch, es funkioniert aber jetzt tadellos mit + .Ich wollt euch den Code eigentlich nicht zumuten, da ich dachte es sei vielleicht ein logisches Problem, aber wer dran interressiert ist :
#!/usr/bin/perl -w
$verzeichnis = '.';
print "Content-type:text/html\n\n";
.
.
.
.
.
print "<title>memberlist</title>\n";
print "</head>\n<body link="yellow" vlink="yellow">\n";
print "<table width=100% border="0">\n";
opendir(DIR, "$verzeichnis") or die "Verzeichnis kann nicht geoeffnet werden : $!\n";
while ($file = readdir(DIR)) {
if ($file =~ /^\d+.html/) {
push @unsortierte_liste, $file;
}
}
closedir DIR;
@dateiliste = sort { $a cmp $b } @unsortierte_liste;
$i = 0;
$i2 = 0;
$anzahl_elemente = @dateiliste;
foreach $file(@dateiliste) {
$i++;
$i2++;
open(DATEI,"$verzeichnis/$file") or die "Cant open memberlist: $!\n";
@daten = <DATEI>;
foreach $zeile(@daten) {
if ($zeile =~ /<font>MEMBER :</font></td><td align="left">(.*)</td></tr>/) {
$eldnick = $1;
}
}
if ($i == 1) {
print "<tr>\n";
print "<td align="center"><a href="$file">$eldnick</a></td>\n";
if ($i2 == $anzahl_elemente) {
print "</tr>\n";
}
}
if ($i == 2) {
print "<td align="center"><a href="$file">$eldnick</a></td>\n";
if ($i2 == $anzahl_elemente) {
print "</tr>\n";
}
}
if ($i == 3) {
print "<td align="center"><a href="$file">$eldnick</a></td>\n";
print "</tr>\n";
$i = 0;
}
}
close DATEI;
print "</table>\n";
print "</body>\n</html>\n";