Textblöcke austauschen??? (Allgemeines zu Perl)

Andreas

2005-12-21 15:23

User since
2003-09-24
111 Artikel
BenutzerIn
[default_avatar]

Hallo an alle,
wie kann ich ganze Textblöcke in Dateien austauchen?
Wie man Zeilen oder einzelne Wörter austauscht ist mir bekannt, aber wie funzt das mit ganzen Textblöcken?

Wäre für jede Hilfe dankbar
Dankeschön
Andreas

esskar

2005-12-21 15:49

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

was ist ein textblock ?
mit sysread und syswrite kannst du sagen, schreib von position x n-bytes

Andreas

2005-12-21 15:53

User since
2003-09-24
111 Artikel
BenutzerIn
[default_avatar]

Beispiel Dateiinhalt:

Zeile 1
Zeile 2
Zeile 3
Zeile 4
Zeile 5
Zeile 6
Zeile 7
Zeile 8

jetzt möchte ich den Textlock:

Zeile 3
Zeile 4
Zeile 5

gegen:

Zeile XXX
Zeile YYY
Zeile ZZZ

tauschen
und die Datei neui schreiben das folgender Inhalt drinnen ist:

Zeile 1
Zeile 2
Zeile XXX
Zeile YYY
Zeile ZZZ
Zeile 6
Zeile 7
Zeile 8

hoffe ich habs etwas eindeutiger gemacht.

Gruß
Andreas

esskar

2005-12-21 16:02

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

mit Tie::File

Andreas

2005-12-21 16:40

User since
2003-09-24
111 Artikel
BenutzerIn
[default_avatar]

hi Esskar,
könntest du mir vielleicht auf die schnelle ein Beispiel zeigen, wie das funktioniert?
Danke
Gruß
Andreas

esskar

2005-12-21 16:59

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

Tie::File

Code: (dl )

use Tie::File;

tie @array, 'Tie::File', filename or die ...;

$array[2] = 'XXX';
$array[3] = 'YYY';
$array[4] = 'ZZZ';

untie @array;

Strat

2005-12-22 16:53

User since
2003-08-04
5246 Artikel
ModeratorIn

perldoc Tie::File gibt dir eine menge weiterer Infos dazu

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/