Perl一行式序言:我为什么学Perl

曾经,我熟练操作grep、awk、sed,甚至自认对sed尚算精通,我一度爱上了写脚本。但是随着写脚本的次数多了,需求复杂了,我深深的感受到shell的无奈。

例如,我多次遇到过类似下面这种恶心的需求:

1
sed ... | awk ...

其中sed要操作第2到第5行,同时awk要操作中间的第3行,在awk操作第3行的时候,sed的第2行不能丢弃。

对于shell管道来说这是不可能实现的(注:合理使用while read line能实现),因为它通过管道在各命令之间传递数据,这使得管道前面的数据必须传递给管道后面,而数据一被管道传递就从管道左边程序的缓存中消失了,也就是不可重用了。

于是我学了Perl,在这之前我也学了python,但是学过Perl之后,在我觉得shell难以实现的时候,我的第一想法几乎总是使用Perl去实现脚本,而不是用python。

本文我要分享的是一行式Perl程序,它完全可以替代grep+sed+awk,且功能还更强大。文章篇幅稍大,可算是一本较薄的书,但除了专门的perl正则表达式之外(如果没有学过编程语言的正则的话。我也写过一篇非常详细又0基础友好的Perl正则,如有需求,可参见Perl正则表达式超详细教程),其它的都绝对基础,我解释的也足够简单,只要认真看,它真的比awk更简单。按照我现在的感受,我花上几天时间去深入掌握awk,真不如去学Perl一行式。

Perl一行式系列文章:Perl一行式程序