Perl正则表达式

1、简单模式：若模式匹配的对象是$_的内容，只要把模式写在一对斜线//中就可以了，其实也是m//的缩写，m可以省略。

$_ = "yabba dabba doo";
 if(/abba/){
     print "matched";
 }`

2、若模式匹配的对象不是$_的内容，绑定操作符=~用右边的模式来匹配左边的字符串。“

if ($question =~ /please/) { 
print ("Thank you for being polite!\n"); 
} 
else { 
print ("That was not very polite!\n"); 
} 

3、模式中的特殊字符
（1）+ 表示匹配前一个条目一次以上。如：/de+f/指def、deef、deeeeef等。它尽量匹配尽可能多的相同字符，如/ab+/在字符串abbc中匹配的将是abb，而不是ab。

（2）* 表示匹配前一个条目零次或多次。如/de*f/匹配df、def、deeeef等。

（3）?表示前一个条目可有可无。如/de?f/匹配def、df。

（4）. 是能匹配任意一个字符的通配符，换行符除外。如/bet.y/可以匹配betty、betsy、bet=y、等等。因此.*会匹配任意字符零次到无限次数。.+会匹配任意字符1次以上。

（5）转义字符\ 如果你想在模式中包含通常被看作特殊意义的字符，须在其前加斜线”\”。如：/*+/中*即表示字符*，而不是上面提到的一个或多个字符的含义。斜线的表示为/\/，点号的表示为/./。

（6）匹配任意字母或数字 [a-z]表示任意小写字母，[A-Z]表示任意大写字母。任意大小写字母、数字的表示方法为：/[0-9a-zA-Z]/。 首字母大写，其余小写表示方法为/[A-Z][a-z]+/。

（7）字符集
\d 任意数字 [0-9]
\D 除数字外的任意字符 [^0-9]
\w 任意单词字符 [_0-9a-zA-Z]
\W 任意非单词字符 [^_0-9a-zA-Z]
\s 空白 [ \r\t\n\f]
\S 非空白 [^ \r\t\n\f]

（8）锚位
^ 或 \A 仅匹配串首
$ 或 \Z仅匹配串尾
\b 匹配单词边界
\B 单词内部匹配

例如：/^def/只匹配以def打头的字符串，/def$/只匹配以def结尾的字符串，结合起来的/^def$/只匹配字符串def(?)。\A和\Z在多行匹配时与^和$不同。
/\bfred\b/可以匹配fred,但无法匹配fredrick、alfred、或manfredmann。
\B它能匹配所有\b不能匹配的位置。因此/\bsearch\B/会匹配searches、searching与searched，但不能匹配search或researching。

（9）匹配指定数目的字符
字符对{}指定所匹配字符的出现次数。如：/de{1,3}f/匹配def,deef和deeef；/de{3}f/匹配deeef；/de{3,}f/匹配不少于3个e在d和f之间；/de{0,3}f/匹配不多于3个e在d和f之间。

（10）择一匹配
字符”|”指定两个或多个选择来匹配模式。如：/def|ghi/匹配def或ghi。

4、模式匹配修饰符（flag）
/g 改变模式中的所有匹配
/i 忽略模式中的大小写
/e 替换字符串作为表达式
/m 将待匹配串视为多行
/o 仅赋值一次
/s 将待匹配串视为单行 。因为点号.无法匹配换行符，那么/s将模式中的每个点号转换成字符集[\d\D]来处理，就是说匹配任意字符，包括换行符。
/x 忽略模式中的空白

5、用s///进行替换
查找并替换，但是该操作只会进行一次替换。s///g可以进行所有可能的不重复的替换。
例如：
s/^\s+//; 将开头的空白替换成空字符串
s/\s+$//; 将结尾的空白替换成空字符串
s/^\s+|\s+$//g; 去除开头和结尾的空白符

6、大小写转换
\U：将其后的所有字符转换成大写的
\L : 将其后的所有字符转换成小写的
\E： 关闭大小写转换的功能
\l和\u: 只影响其后的第一个字符

例如：

$_ = "I saw Barney with Fred";
s/(fred|barney)/\U$1/gi; # "I saw BARNEY with FRED" 
s/(fred|barney)/\L$1/gi; # "I saw barney with fred" 
s/(\w+) with (\w+)/\U$2\E with $1/i; # "I saw FRED with barney" 
s/(fred|barney)/\u$1/ig; # "I saw FRED with Barney" 
s/(fred|barney)/\u\L$1/ig; # "I saw Fred with Barney" 

7、split操作符
my @array = split /separator/, $string;
my @array = split /:/, “abc:def:g:h”; # 得到(“abc”, “def”, “g”, “h”)
split会保留开头处的空字段，舍弃结尾处的空字段
my @array = split /:/, “:::a:g:h:::”; # 得到(“”, “”, “”, “a”, “g”, “h”)

8、join函数

my $result = join $glue，@pieces;
注意列表必须至少有两个元素，否则无法用胶水结合成一个字符串。$glue 必须是字符串，而不是模式。
my $result = join ":", 4,6,8;  # 得到4:6:8