Perlscript gesucht

[majas]

Hallo,
ich bin auf der Suche nach einem Perlscript, das eine Tetxtdatei öffnet und die letzen 5 Zeilen der Datei an die Spitze setzt und dann speichert, das ganze sollte alle 6 Stunden ausgeführt werden über einen Cronjob. Die Datei sieht ungefähr so aus:
Name=name_1=01k.jpg
Name2=name_2=01k.jpg
Name3=name_3=01k.jpg
usw....

Wer kann mir da weiterhelfen

VG Andy

[Matti Mäkitalo]

Hi,

ich bin auf der Suche nach einem Perlscript, das eine Tetxtdatei öffnet und die letzen 5 Zeilen der Datei an die Spitze setzt und dann speichert, das ganze sollte alle 6 Stunden ausgeführt werden über einen Cronjob.

Direkt über die shell machbar, z.B.:
(tail filename.log -n 5 && cat filename.log) > filename.log.tmp; mv filename.log.tmp filename.log

sollte etwa das tun, was du willst: die letzten 5 Zeilen der Datei an den Anfang derselben setzen.

Ich bin mir aber ziemlich sicher, dass es noch schöner geht… bin wirklich kein shell-Profi.

Bis die Tage,
Matti

[hotti]

hi,

Wer kann mir da weiterhelfen

die Perl Community

Da findest Du gleich mehrere Antworten auf genau diesselbe Frage ;)

Hotti