Opened by bora99 at 2017-09-25 16:49
Hallo Linuxer,
In diesem Fall, weil es wesentlich langsamer ist als meine einfache Lösung (Faktor 5 bei einer Datei mit 100.000.000 Zeilen und 1,86 GB).
Außerdem soll ein Einzeiler ja möglichst kurz sein. Bei dieser Gelegenheit hier noch eine kürzere Fassung meines Vorschlags:
Viele Grüße
payx
Last edited: 2017-10-03 14:50:11 +0200 (CEST)
2017-09-28T21:54:52 LinuxerEinzeiler hindern doch nicht daran, ein Modul zu verwenden. Wenn sie den Job erledigen können, warum nicht verwenden?
In diesem Fall, weil es wesentlich langsamer ist als meine einfache Lösung (Faktor 5 bei einer Datei mit 100.000.000 Zeilen und 1,86 GB).
Außerdem soll ein Einzeiler ja möglichst kurz sein. Bei dieser Gelegenheit hier noch eine kürzere Fassung meines Vorschlags:
Code: (dl
)
perl -ne '($.<6 and print) or shift @a; push @a,$_; END {print @a}' file2017-09-28T21:54:52 LinuxerKleiner Verbesserungsvorschlag: nach say jeweils for einfügen, damit die Zeilen auch wirklich zeilenweise ausgegeben werden. (Auch wenn der Einzeiler dadurch noch etwas länger wird.)Code: (dl )perl -MTie::File -E "tie my @a, 'Tie::File', $ARGV[0]; say @a[0..4]; say @a[-5..-1]" lines.txt
Viele Grüße
payx
Last edited: 2017-10-03 14:50:11 +0200 (CEST)