17、Perl：超越sed与AWK的文本处理利器（上）

Perl：超越sed与AWK的文本处理利器（上）

1. Perl替代sed进行文本处理

在文本处理中，传统的Unix sed命令主要用于对文本应用预定义的编辑命令以及按行号打印文本。然而，Perl凭借其更强大的正则表达式方言、在定义记录方面的更高灵活性、生成替换字符串的更多选项等优势，不仅能够替代sed完成这些任务，而且能做得更好。

例如，若要进行特定字符替换，如将所有字母转换大小写，若使用类似 s/A/a/g 和 s/B/b/g 这样的命令，需要对每行文本运行26个独立的全局替换命令。而Perl提供了更简便的方法，它可以匹配整行文本并对所有字符进行批量转换。以下示例展示了如何将典型垃圾邮件片段转换为小写：

$ cat make_money_fast
LEARN TO MAKE MONEY FAST!
JUST REPLY WITH YOUR CREDIT CARD INFORMATION,
AND WE WILL TAKE CARE OF THE REST!
$ perl -wpl -e 's/^.*$/\L$&/g;' make_money_fast
learn to make money fast!
just reply with your credit card information,
and we will take care of the rest!

该命令的工作原理是：替换操作符会匹配行首 ^ 到行尾 $ 之间的任意内容