dateiinhalt mit seek usw bearbeiten - #59783 (Allgemeines zu Perl)

Froschpopo

2005-11-06 20:38

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Also wir hatten ja diese schöne diskusion mit dem Filelocking.
Das Problem habe ich jetzt zwar mit sysopen() in den Griff bekommen, aber jetzt wollte ich trotzdem nochmal die andere angesproche Version ausprobieren.
Gehen wir mal von folgender Basis aus die ich bisher verwendet hatte:

Code: (dl )

open(OLDFILE, "/home/froschpopo/file.txt") or die $!;
flock OLDFILE, 2;
@content = <OLDFILE>;
close(OLDFILE);

open(FILE, ">/home/froschpopo/file.txt") or die $!;
flock FILE, 2;
print FILE @content;
close(FILE);

Wie könnte ich denn jetzt eine zeile in der Datei ändern, ohne diese zu löschen?

nehmen wir mal an, die datei sieht so aus:

Code: (dl )

1
2
3

name|alter
name2|alter2
name3|alter3

wie ändere ich jetzt name2 ohne dass ich wie im obigen primatenbeispiel die datei neu erstellen muss?\n\n