12、Perl：比grep更强大的文本匹配工具

Perl：比grep更强大的文本匹配工具

1. 级联过滤器的使用

Guido在观看海绵宝宝动画时被老板的电话打断，老板要求他从 projects 文件中提取重要信息，该文件记录了参与各个项目的程序员的首字母缩写，文件内容如下：

area51: ET,CYA,NOYB,UFO,NSA
glorp:  FYI,INGY,ESR
slurm:  URI,INGY,TFM,ESR,SRV
yabl:   URL,SRV,INGY,ESR

老板想知道哪些项目同时有 ESR 和 SRV 参与。Guido意识到不能假设 ESR 一定在 SRV 左边，反之亦然。他先使用 grep 命令匹配 ESR 后接 SRV 的情况：

$ grep '\<ESR\>.*\<SRV\>' projects
slurm:  URI,INGY,TFM,ESR,SRV

但 grep 无法处理另一种顺序，于是他使用 egrep 的交替元字符：

$ egrep '\<ESR\>.*\<SRV\>|\<