单行:打印除最后3行以外的所有行？

Question

我想模拟GNU head -n -3,它打印除了最后3行之外的所有行,因为head在FreeBSD上没有这个功能.所以我在想类似的东西

seq 1 10 | perl -ne ...

这里我使用了10行,但它可以是任何大于3的数字.

它可以用Perl或其他方式在BASH的FreeBSD上完成吗？

一个超级原始的解决方案

seq 1 10 | sed '$d' | sed '$d' | sed '$d'

Answer 1

seq 1 10 | perl -e '@x=("")x3;while(<>){print shift @x;push @x,$_}'

要么

perl -e '@x=("")x3;while(<>){print shift @x;push @x,$_}' file

要么

command | perl -pe 'BEGIN{@x=("")x3}push @x,$_;$_=shift @x'
perl -pe 'BEGIN{@x=("")x3}push @x,$_;$_=shift @x' file

Answer 2

seq 1 10 | perl -ne 'push @l, $_; print shift @l if @l > 3'

Answer 3

纯粹的bash和简单的工具(wc和cut):

head -n $(($(wc -l file | cut -c-8)-3)) file

免责声明 - 我现在无法访问FreeBSD,但这确实适用于OSX bash.

Answer 4

这适用于管道和输入文件:

seq 1 10 | perl -e'@x=<>;print@x[0..$#x-3]'

Answer 5

似乎没有人有使用sed和tac,所以这里是一个:

$ seq 10 | tac | sed '1,3d' | tac
1
2
3
4
5
6
7