nicht angemeldet
Hallo zusammen,
ich habe ein kleines Perl CGI-Skript, mit dem ich mehrere einzelne Datensatzdateien (ASCII-Text) verarbeite. In jeder Datei stehen in jeder einzelnen Zeile jeweils 13 Informationen mit Trennzeichen getrennt, die Anzahl der Zeilen je Datei variiert und nimmt ab und an zu. In einer HTML-Ausgabe mit print stehen nun die anzuzeigenden Infos je Zeile schön nebeneinander, die einzelnen Zeilen und dann Dateien schön untereinander. Wie erreiche ich es denn nun, daß je Datei nur die erste Zeile angezeigt wird, und die anderen nicht? Ich habe schon mit while etc. rumprobiert, geht aber nicht.
Hat vielleicht jemand einen Tip? Danke im voraus.
Birdman
Hier das wichtigste des skript:
foreach (@DAT_Dateien) {
{
open(FILE, $_);
for(<FILE>)
{
print qq|
<body bgcolor=white text=black>
|;
($back, $datum, $tour, $action, $strecke, $profil, $schild, $esskont, $essziel, $dusch, $gesamt, $name, $komment) = split /|/;
$komment =~ s/(.{800})/$1<br>/g;
$komment =~ s/\n*//g;
print qq|
<p>$tour <a href="http://www.m.de/$back" target="_self">TTT</a></p>
|;
}
close(FILE);