Perl 正则表达式的三种形式整理

正则表达式的三种形式51Testing软件测试网E:t y {!Z7~ E

lq!f)?G5uN0正则表达式是 Perl 语言的一大特色，也是 Perl 程序中的一点难点，不过如果大家能够很好的掌握他，就可以轻易地用正则表达式来完成字符串处理的任务，当然在 CGI 程序设计中就更能得心应手了。下面整理列出一些正则表达式书写时的一些基本语法规则。 51Testing软件测试网9Xx8k&uG

首先我们应该知道 Perl 程序中，正则表达式有三种存在形式，他们分别是：51Testing软件测试网l'Pi1yOJxs2_'B W

qZ P;nXz4nq)Ap0匹配：m/<regexp>/ （还可以简写为 /<regexp>/ ，略去 m）51Testing软件测试网wW/Gp8Z,Se)e:hO7_

*~8Bn(b7M"H K/k7L$}0替换：s/<pattern>/<replacement>/51Testing软件测试网Z+j/WRC8F

C0J&yHI|5G5C2zL&]0转化：tr/<pattern>/<replacemnt>/51Testing软件测试网#dm.j^\$rV)U!r

!Syy0Y(]{j$tu&aF0这三种形式一般都和 =~ 或 !~ 搭配使用（其中 "=~" 表示相匹配，在整条语句中读作 does，"!~" 表示不匹配，在整条语句中读作 doesn't），并在左侧有待处理的标量变量。如果没有该变量和 =~ !~ 操作符，则默认为处理 $_ 变量中的内容。举例如下：

k;?q6O,i/z/YO0$str = "I love Perl";
M"C7b:Ny0$str =~ m/Perl/; # 表示如果在 $str 中发现 "Perl" 字符串，则返回 "1" 否则返回 "0"。
q,z:Df:l6@,_bU5S0$str =~ s/Perl/BASH/; # 表示将变量 $str 中的 "Perl" 字符串替换为 "BASH"，如果发生此替换则返回 "1"，否则返回 "0"。51Testing软件测试网 l}6k)]2J
$str !~ tr/A-Z/a-z/; # 表示将变量 $str 中的所有大写字母转化为小写字母，如果转化发生了则返回 "0"，否则返回 "1"。51Testing软件测试网/IE,t)~n;^

h,y9d{@L~0另外还有：

vy"}a5Z@0foreach (@array) { s/a/b/; } # 此处每次循环将从 @array 数组中取出一个元素存放在 $_ 变量中，并对 $_ 进行替换处理。51Testing软件测试网o!y.b2ATT#R)j0@'r
while (<FILE>) { print if (m/error/); } # 这一句稍微复杂一些，他将打印 FILE 文件中所有包含 error 字符串的行。

Li4R:J*o0Perl 的正则表达式中如果出现 () ，则发生匹配或替换后 () 内的模式被 Perl 解释器自动依次赋给系统 $1, $2 ...... 请看下面的例子：

$string = "I love perl";51Testing软件测试网V Lg ?)u@/`my2y
$string =~ s/(love)/<$1>/; # 此时 $1 = "love"，并且该替换的结果是将 $string 变为 "I <love> perl"
{pbKi0G4IfL d0$string = "i love perl";51Testing软件测试网$BbLN5kV
$string =~ s/(i)(.*)(perl)/<$3>$2<$1>/; # 这里 $1 = "i"，$2 = " love "，$3 = "perl"，并且替换后 $string 变为 "<perl> love <i>"51Testing软件测试网m;yKyh0N+|

` AYBi9a1M0替换操作 s/<pattern>/<replacement>/ 还可以在末尾加上 e 或 g 参数，他们的含义分别为：

J9d,g~1bUug0A0s/<pattern>/<replacement>/g 表示把待处理字符串中所有符合 <pattern> 的模式全部替换为 <replacement> 字符串，而不是只替换第一个出现的模式。51Testing软件测试网h+}2H)Z8? u,T5S
s/<pattern>/<replacement>/e 表示将把 <replacemnet> 部分当作一个运算符，这个参数用的不多。

%M2Vk3?+M3Hx0比如下面的例子：51Testing软件测试网`!yo/m1sS3|

{,m}E5|/x1[~0$string = "i:love:perl";
7jt m$A$P8Mn0$string =~ s/:/*/; #此时 $string="i*love:perl";
3s)Nno]gy`0$string = "i:love:perl";
h ^\ { y^%@0r&DMp0$string =~ s/:/*/g; #此时 $string="i*love*perl"; 51Testing软件测试网B5H0YJ WF}
$string =~ tr/*/ /; #此时 $string="i love perl"; 51Testing软件测试网3A6n+y3d-YcO7Ts
$string = "www22cgi44";51Testing软件测试网u(e6A4z:|
$string =~ s/(\d+)/$1*2/e; # (/d+)代表 $string 中的一个或多个数字字符，将这些数字字符执行 *2 的操作，因此最后 $string 变成了 "www44cgi88"。51Testing软件测试网P? Yg/a

下面给出一个完整的例子：

#!/usr/bin/perl
dOK#Jf y0
\.L4q C WE%OS7}0print"请输入一个字符串!\n";51Testing软件测试网mK2E.E$GT(\
$string = <STDIN>; # <STIDN>代表标准输入，会让使用者输入一字符串
'[9i
q3mH.td0chop($string); # 将$string最后一个换行的字符\n删除掉
|;Gw0G|#\
M"K;y}0if($string =~ /perl/){51Testing软件测试网?+{w-D"D+I)}
　　print("输入的字符串中有 perl 这个字符串!\n";51Testing软件测试网#[ B-un1ct'D8y5kA*F
}

如果输入的字符串含有 perl 这个字符串的话，就会显示后面的提示信息。