Perl一行式：选择行输出、删除、追加、插入

perl一行式程序系列文章：Perl一行式

---

对于Perl的一行式perl程序来说，选择要输出的、要删除的、要插入/追加的行是非常容易的事情，因为print/say决定行是否输出/插入/追加/删除。虽然简单，但对于广泛应用在sed的示例还是可以拿到这里来讨论一番。

因为输出/删除/插入/追加行都是通过print/say在不同条件下的操作，所以本文只会介绍输出操作，删除/插入/追加其实都是同样的原理。

输出第一行

$ perl -lne 'print;exit' file.log

输出第13行

$ perl -ne 'print if $. == 13' file.log

输出前10行

$ perl -ne 'print if $.<=10' file.log
$ perl -ne 'print if 1..10' file.log
$ perl -ne '$. <= 10 && print' file.log
$ perl -ne 'print; exit if $. == 10' file.log

输出最后一行

$ perl -ne