Perl 一行打印除最后一行以外的所有内容

Question

我有一个文件。我想打印除最后一行以外的所有行。我们如何使用 Perl 代码来做到这一点？

这是行不通的:

cat file|perl -lane 'print if not eof()'

---

不好意思，这是行得通的。我没有仔细查看我的输出。

seq 1 6 | perl -lane 'print if not eof()'
1
2
3
4
5

Answer 1

如果需要在命令行上执行此操作，可以使用 shell 命令 head。负数行将显示除最后 N 行以外的所有行。

head --lines=-1 filename

这是一个 GNU 扩展，不适用于 BSD head，例如 OS X 附带的 stock head。

对于Perl，您的代码基本正确，但没有必要涉及cat。否则，您将读取该文件两次。您可以直接传递文件名。此外 -l 实际上什么也不做，从输入中剥离换行符并将其放回输出中。最后，不需要 -a，因为这会浪费地将每一行拆分为未使用的 @F。

perl -ne 'print if not eof' filename