Hallo Zusammen!

Ich will mit Perl einen Text in eine Text-Datei mit Inhalt einfügen. Ich will diesen Text zum Beispiel an Position 500 einfügen. Ich will aber nicht dass das was dort steht gelöscht wird, sondern dass es nach hinten verschoben wird. Ich habe versucht:

open (DATA,"+<file.txt");
seek DATA, 500,0;
print DATA " eingefügter Text ";
close(DATA);

aber es überschreibt das was an Position 500 steht mit " eingefügter Text "; Ich will aber das dazwischen eingefügt wird und der nachfolgende Text nach
"hinten" gerückt wird (wie bei einem Editor z.B. Notepad).

Gruss
rommi