Neue Einträge am Dateianfang anhängen

[Frank]

Hi !
Du mußt zunächst die Datei zum Lesen öffnen und den gesamten Inhalt in eine Variable $alt speichern.
danach öffnest du die Datei zum Überschreiben und schreibst:

print DATEI"
<tr>  
<td width=15%>$field[0]}</td>
<td width=20%>$field[1]</td>
<td>$field[2]</td>
</tr>";

anschließend fügst Du den in der Variablen $alt gespeicherten Text ein:

print DATEI $alt

Das wars !
Gruß
Frank

»

Hallo,

wie schaffe ich es, neue Formulareinträge am Anfang einer Datei in der sie gespeichert werden  anzuhängen. Es werden Tabellenzeilen gespeichert  (HTML-Code) etwa so:

<tr>

»»  <td width=15%>$field[0]}</td>
»»  <td width=20%>$field[1]</td>
»»  <td>$field[2]</td>

</tr>

mein Script lautet:

#! /usr/bin/perl

use CGI qw(:standard);

$field[0] = param('Datum');
$field[1] = param('Name');
$field[2] = param('Eintrag');

open (datei, ">>../../proddoc-pd/save.txt") die "Die Datei konnte nicht geöffnet werden\n";
print datei"
<tr>

»»  <td width=15%>$field[0]}</td>
»»  <td width=20%>$field[1]</td>
»»  <td>$field[2]</td>

</tr>
\n";
close datei;

Danke!

BK