nicht angemeldet
Hallo zusammen,
ich arbeite mit einem kleinen Perl-Skript, bei dem aus einem html-Eingabeformular Daten in eine Datei (.dat) mit den entsprechenden Eingaben geschrieben werden. Die Datei ist nach dem Muster
wert1 | wert2 | wert3 |
etc. aufgebaut. Mit einem weiteren Skript werden die Daten dann als html angezeigt (Cheatah: entschuldige die wahrscheinlich nicht ganz korrekte Bezeichnung ;-))). Dabei erfolgt die Anzeige in chronologischer Reihenfolge vom ersten Datensatz (=erste Zeile) bis zum letzten.
Diese Ausgabe würde ich gerne umdrehen, sprich der zuletzt eingegebene Beitrag wird ganz oben angezeigt usw. Ich bin auf den "sort"-Befehl gestoßen, allerdings haben meine Einbauversuche in das Skript nicht gefruchtet. Entweder tut sich gar nix oder das Skript läuft nicht. Ich wäre für einen Hinweis dankbar.
Birdman
Hier ein Extrakt des Skript, ohne die html-"Formatierungen":
#!/usr/bin/perl
use CGI;
$foo = new CGI;
$zeigen = $foo->param('zeigen');
$zeig = ('.htm');
$dat = ('.dat');
$zeigdat = $zeigen . $dat;
$ziel = $zeigen . $zeig;
{
{
print qq|
<html>USW.
|;
}
print qq|
</body>
</html>
|;
}
{
open(FILE, $zeigdat);
while(<FILE>) {
print qq|
<html>USW:
|;
($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|
<table USW:
|;
}
close(FILE);
print qq|
</body>
</html>
|;
}