Thread Perl Script (7 answers)
Opened by majas at 2014-07-03 13:30

payx
 2014-07-12 10:55
#176399 #176399
User since
2006-05-04
564 Artikel
BenutzerIn

user image
Ich habe gerade ausprobiert:

In Deinem o.a. Script
Guest wer
ersetze

unshift @lines, @move;

durch

splice(@lines,11,0,@move);
(Tippfehler in Code-Zeile von mir korrigiert.)

Jetzt werden in einem als Parameter übergebenen Textfile die letzten fünf Zeilen als 12.-16. Zeile eingeschoben, der restliche Text wird dabei nach unten verschoben, sodass am Ende wieder der vollständige Text enthalten ist. Das dürfte das gewünschte Verhalten sein. Falls nicht 12.-16., sondern 11.-15. als Ziel gewünscht sind, müsste halt in der geänderten Zeile 10 stehen statt 11 (denn das erste Element im Array, also hier die erste Zeile im Text hat ja den Index 0).

Das sollte auch bei Dir klappen.

View full thread Perl Script