nicht angemeldet
Hi,
open (DATEI, "+>datei.txt"); # lesen und schreiben
das stimmt zwar, hilft aber soweit ich weiß nicht wirklich. Ich habe es noch nie ausprobiert, verstehe den Befehl aber so, daß man sich einfach nur einen open-Befehl spart. Beim Schreibversuch werden also Datenverluste auftreten. Woher soll Perl sonst wissen, welche Daten überschrieben werden sollen? Eine Zeile? Die Zahl der Bytes, die der zu schreibende String hat? Alles ab der aktuellen Position?
Die Methode von Ludwig ist schon sinnvoll. Lese die Daten erst in ein Array und schreibe anschließend neu. Oder Du schreibst zeitgleich (schont Arbeitsspeicher) in eine temporäre Datei und kopierst anschließend um.
Cheatah