Ich versuche gerade die ersten N-Zeilen und die letzten N-Zeilen auszugeben

Anzeige der ersten 5 Zeilen
perl -ne '{print if ($. < 6) }' file

Anzeige der 1. und letzten Zeile
perl -ne 'BEGIN {print scalar <>} print if eof' file 


Anzeige der ersten 5-Zeilen und der letzten 5-Zeilen
Ist es bei grossen Files ein Problem in ein Array zu lesen ?
perl -ne '{print if ($. < 6) }; push @arr, $_; @arr = @arr[@arr-5..$#arr]; END { print @arr } ' file