【正则表达式的三种形式】
首先我们应该知道 Perl 程序中，正则表达式有三种存在形式，他们分别是：
匹配：m// （或 // ，略去 m）
替换：s///
转化：tr///
这三种形式一般都和 =~ 或 !~ 搭配使用（其中 =~表示相匹配，在整条语句中读作does，!~表示不匹配，在整条语句中读作doesn't），并在左侧有待处理的标量变量。如果没有该变量和 =~ !~ 操作符，则默认为处理$_变量中的内容。举例如下：
$str = "I love Perl";
$str =~ m/Perl/; ? ? ? #表示如果在$str中发现"Perl"字符串，则返回"1"否则返回"0"。
$str =~ s/Perl/BASH/; ?#表示将变量$str中的"Perl"字符串替换为"BASH"，匹配成功返回"1"，否则返回"0"。
$str !~ tr/A-Z/a-z/; ? #表示将变量$str中的所有大小写字母转换，如果转化发生了则返回"0"，否则返回 "1"。
另外还有：
Perl的正则表达式中如果出现(),则发生匹配或替换后()内的模式被Perl解释器自动依次赋给系统$1, $2, $3...
?
请看下面的例子：
$string = "I love perl";
$string =~ s/(love)/<$1>/; # 此时 $1 = "love"，并且该替换的结果是将 $string 变为 "I ; perl"
$string = "i love perl";
$string =~ s/(i)(.*)(perl)/<$3>$2<$1>/;?
# 这里$1 = "i"，$2 = " love "，$3 = "perl"，并且替换后$string 变为 " love "
替换操作 s/// 还可以在末尾加上 e 或 g 参数，他们的含义分别为：
s///g?
#表示把待处理字符串中所有符合的模式全部替换为字符串，而不是只替换第一个出现的模式。
s///e?
#表示将把部分当作一个运算符，这个参数用的不多。
比如下面的例子：
$string = "i:love:perl";
$string =~ s/:/*/; ? ? ? ?#此时 $string="i*love:perl";
$string = "i:love:perl";
$string =~ s/:/*/g; ? ? ? #此时 $string="i*love*perl";?
$string =~ tr/*/ /; ? ? ? #此时 $string="i love perl";?
$string = "www22cgi44";
$string =~ s/(\d+)/$1*2/e;?
#(/d+)代表$string中的一个或多个数字字符，将这些数字字符执行 *2 的操作
#因此最后 $string 变成了"www44cgi44"。
下面给出一个完整的例子：
如果输入的字符串含有perl这个字符串的话，就会显示后面的提示信息。
【正则表达式中的常用模式】
下面是正则表达式中的一些常用模式。
/pattern/ ?结果 ?
. ? ? ?匹配除换行符以外的所有字符?
x? ? ? 匹配 0 次或一次 x 字符串?
x* ? ? 匹配 0 次或多次 x 字符串
x+ ? ? 匹配 1 次或多次 x 字符串
.* ? ? 匹配 0 次或一次的任何字符?
.+ ? ? 匹配 1 次或多次的任何字符?
{m} ? ?匹配刚好是 m 个 的指定字符串?
{m,n} ?匹配在 m个 以上 n个 以下 的指定字符串?
{m,} ? 匹配 m个 以上 的指定字符串?
[] ? ? 匹配符合 [] 内的字符?
[^] ? ?匹配不符合 [] 内的字符?
[0-9] ?匹配所有数字字符?
[a-z] ?匹配所有小写字母字符?
[^0-9] 匹配所有非数字字符?
[^a-z] 匹配所有非小写字母字符?
^ ? ? ?匹配字符开头的字符?
$ ? ? ?匹配字符结尾的字符?
\d ? ? 匹配一个数字的字符，和 [0-9] 语法一样?
\d+ ? ?匹配多个数字字符串，和 [0-9]+ 语法一样?
\D ? ? 非数字，其他同 \d?
\D+ ? ?非数字，其他同 \d+?
\w ? ? 英文字母或数字的字符串，和 [a-zA-Z0-9] 语法一样?
\w+ ? ?和[a-zA-Z0-9]+ 语法一样?
\W ? ? 非英文字母或数字的字符串，和 [^a-zA-Z0-9] 语法一样?
\W+ ? ?和[^a-zA-Z0-9]+语法一样?
\s ? ? 空格，和 [\n\t\r\f] 语法一样?
\s+ ? ?和[\n\t\r\f]+ 一样?
\S ? ? 非空格，和 [^\n\t\r\f] 语法一样?
\S+ ? ?和[^\n\t\r\f]+ 语法一样?
\b ? ? 匹配以英文字母,数字为边界的字符串?
\B ? ? 匹配不以英文字母,数值为边界的字符串?
a|b|c ?匹配符合a字符或是b字符 或是c字符 的字符串?
abc ? ?匹配含有 abc 的字符串?
(pattern) ? ()这个符号会记住所找寻到的字符串，是一个很实用的语法。第一个 () 内所找到的字符串变成 $1 这个变量或是 \1 变量，第二个 () 内所找到的字符串变成 $2 这个变量或是 \2 变量，以此类推下去。 ?
/pattern/i ?i这个参数表示忽略英文大小写，也就是在匹配字符串的时候，不考虑英文的大小写问题。?
\ 如果要在 pattern 模式中找寻一个特殊字符，如 "*"，则要在这个字符前加上 \ 符号，这样才会让特殊字符失效?
下面给出一些例子： ? ?
范例 ? ? ? 说明?
================================================================
/perl/ ? ? 找到含有 perl 的字符串?
/^perl/ ? ?找到开头是 perl 的字符串?
/perl$/ ? ?找到结尾是 perl 的字符串?
/c|g|i/ ? ?找到含有 c 或 g 或 i 的字符串?
/cg{2,4}i/ 找到 c 后面跟着 2个到 4个 g ，再跟着 i 的字符串?
/cg{2,}i/ ?找到 c 后面跟着 2个以上 g ，再跟着 i 的字符串?
/cg{2}i/ ? 找到 c 后面跟着 2个 g，再跟着 i 的字符串?
/cg*i/ ? ? 找到 c 后面跟着 0个或多个 g ，再跟着 i 的字符串，如同/cg{0,1}i/?
/cg+i/ ? ? 找到 c 后面跟着一个以上 g，再跟着 i 的字符串，如同/cg{1,}i/?
/cg?i/ ? ? 找到 c 后面跟着 0个或是 1个 g ，再跟着 i 的字符串，如同/cg{0,1}i/?
/c.i/ ? ? ?找到 c 后面跟着一个任意字符，再跟着 i 的字符串?
/c..i/ ? ? 找到 c 后面跟着二个任意字符，再跟着 i 的字符串?
/[cgi]/ ? ?找到符合有这三个字符任意一个的字符串?
/[^cgi]/ ? 找到没有这三个字符中任意一个的字符串?
/\d/ ? ? ? 找寻符合数字的字符，可以使用/\d+/来表示一个或是多个数字组成的字符串?
/\D/ ? ? ? 找寻符合不是数字的字符，可以使用/\D+/来表示一个或是更多个非数字组成的字符串?
/\*/ ? ? ? 找寻符合 * 这个字符，因为 * 在常规表达式中有它的特殊意思，\来转义
/abc/i ? ? 找寻符合 abc 的字符串而且不考虑这些字符串的大小写?
【正则表达式的八大原则】
如果在Unix中曾经使用过sed、awk、grep 这些命令的话，相信对于 Perl 语言中的正则表达式不会感到陌生。 Perl语言由于有这个功能，所以对字符串的处理能力非常强。在Perl语言的程序中，经常可以看到正则表达式的运用，在CGI程序设计中也不例外。
正则表达式是初学Perl的难点所在，不过只要一旦掌握其语法，你就可以拥有几乎无限的模式匹配能力，而且Perl 编程的大部分工作都是掌握常规表达式。下面给大家介绍几条正则表达式使用过程中的八大原则。?
正则表达式在对付数据的战斗中可形成庞大的联盟——这常常是一场战争。我们要记住下面八条原则：
?
?