perl学习笔记(8)

^一行的开头 $一行的结尾　例如/^$/匹配空行。

用\转义特殊字符。

//i，后面跟个i不区分大小写。

//g，后面跟个g匹配全部。没有g只匹配一次。

s///，前面跟个s做替换。

grep对列表中的元素逐一进行模式匹配操作。

练习(f81.pl)：

#!/usr/bin/perl -w
$pat=<STDIN>;
chomp $pat;
$a="The phrase that pays";
if ($a=~/$pat/i){
print "\$_ contains the pattern $pat \n";
}
$a=~s/phrase/$pat/;
print qq($a\n);

@a_m=grep /A/i,("1 aaa","2 hello world!","3 abc","4 a b c");
print qq(@a_m\n);

@bb=("1a","bb a","aaa board");
@a_m=grep s/A/X/ig,@bb;
print qq(\@a_m=@a_m\n);
print qq(\@bb=@bb\n);

$ perl f81.pl

www

The www that pays

1 aaa 3 abc 4 a b c

@a_m=1X bb X XXX boXrd

@bb=1X bb X XXX boXrd

正则表达式不好记忆，理解起来也挺费脑子，这就决定了贡献正则表达式代码只能是少数人。在具体实践中，去搜索别人已经写好的正则表达式，拿过来测一测，改一改自己用是比较好的方式。自己有好的正则表达式代码也不妨贡献出来。如果是自己写正则表达式，建议简单用用就好。另外就是如果正则表达式比较复杂，最好有注释，别让后面维护代码的人骂你。

这个页面上介绍了几个不错的正则表达式工具(我个人比较欣赏RegexBuddy)：

http://apps.hi.baidu.com/share/detail/20369196

下面这本书是公认的好书：

精通正则表达式（第3版）中文版.(美)Jeffrey.E.F.Friedl

英文书名叫：Mastering Regular Expressions

关于正则表达式，就学习到这里吧。