nicht angemeldet
Hi.
Ich habe hier ein Skript (von einem Bekannten). Das Skript liest aus einer Datei einige Daten aus und stellt diese in einer Tabelle dar.
Jetzt sind in der Tabelle einige Zellen leer. Diese hätte ich aber gerne mit gefüllt. Wo muss ich in dem Skript etwas ändern, damit genau das passiert?
Richtig, ich kenne mich überhaupt nicht mit Perl aus, und viel Zeit habe ich auch nicht, um mich darin einzuarbeiten. Hätte ich Zeit würde ich es tun. Bitte sagt mir, wo ich etwas ändern muss.
Hier das Skript:
#!/usr/bin/perl
@zeilen = ("");
if(open(testdatei,"<../ahnentafel/stammbaum.txt")== false)
{
print "Datei nicht gefunden";
die;
}
print "Content-type: text/html\n\n";
print "<html><head><title>Personenregister</title></head>\n";
print "<body><h2>Alle Namen</h2>\n";
while(<testdatei>)
{
push(@zeilen,$_);
}
close(testdatei);
print "<table border=\"1\" cellspacing=\"0\" cellpadding=\"2\">\n";
$satz=0;
@Liste = sort @zeilen;
print "<tr>\n";
print "<td>","ID","</td>\n";
print "<td>","Name","</td>\n";
print "<td>","Vorname","</td>\n";
print "<td>","2.Vorname","</td>\n";
print "<td>","geborene","</td>\n";
print "<td>","geboren am","</td>\n";
print "<td>","Land","</td>\n";
print "<td>","Ort","</td>\n";
print "<td>","gestorben am","</td>\n";
print "<td>","Land","</td>\n";
print "<td>","Ort","</td>\n";
print "<td>","VaterID","</td>\n";
print "<td>","MutterID","</td>\n";
print "<td>","PIC","</td>\n";
print "<td>","Bemerkung","</td>\n";
print "<td>","Ehepartner","</td>\n";
print "<td>","Hochzeitsdatum","</td>\n";
print "</tr>\n";
for(@Liste)
{
print "<tr>\n";
@felder = split(/;/,$Liste[$satz]);
$i=0;
for(@felder)
{
if ($satz == 0)
{
print "<td>",$felder[$i],"</td>\n";
}
else
{
if($i == 0)
{
print "<td>",
"<a href=\"/cgi-bin/viewPers.pl?",$felder[$i],"\">",
$felder[$i],
"</a></td>\n";
}
else
{
print "<td>",$felder[$i],"</td>\n";
}
$i++;
}
}
print "</tr>\n\n";
$satz++;
}
print "</table>";
print "</body></html>\n";
danke euch
euer Patrick
Struppi