nicht angemeldet
Hoi,
#!/usr/bin/perl -w
use strict;
$verzeichnis = '.';
my $verzeichnis = '.';
print "<title>memberlist</title>\n";
print "</head>\n<body link="yellow" vlink="yellow">\n";
print "<table width=100% border="0">\n";
print <<HTML;
<html>
<head>
<title>Member list</title>
</head>
<body link="yellow" vlink="yellow">
HTML
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;
my @dateiliste = sort { $a cmp $b } grep(/^\d+.html$/,readdir DIR);
$i = 0;
$i2 = 0;
$anzahl_elemente = @dateiliste;
my .... ;-)
Ich kann eigentlich nichts finden, was diesen Fehler verursachen koennte. Aber wie waere es
mit use strict, use diagnostics? Vielleicht hilft dir das ja weiter.
Gruss,
CK