an den datei anfang schreiben

[roman lenz]

hi hi

so klappt es halbwegs nur leider wird mein dateianfang überschrieben und nicht ergänzst.

sub schreib_kopf {
  open(DAT,'+< '.$DIRsave.'werte.txt') || ($meld="Werte schreiben",&kill());
    seek(DAT,0,0);
    printf DAT "#       Datum: %-25s      OEM: %s\n",$CTIME,$oem;
    seek(DAT,0,2);
    printf DAT "# EOF";

}  #----Subende----

hat noch jemand eine idea

besten dank

bis bis roman