《perl中的正则表达式.doc》由会员分享，可在线阅读，更多相关《perl中的正则表达式.doc（9页珍藏版）》请在金锄头文库上搜索。
1、perl中的正则表达式 原作者：张敬春 创建者：张敬春 原文出自： http:/ 感谢AKA及作者。 9Perl中的正则表达式正则表达式的三种形式正则表达式中的常用模式正则表达式的8大原则正则表达式是Perl语言的一大特色，也是Perl程序中的一点难点，不过如果大家能够很好的掌握他，就可以轻易地用正则表达式来完成字符串处理的任务，当然在CGI程序设计中就更能得心应手了。下面我们列出一些正则表达式书写时的一些基本语法规则。-9.1正则表达式的三种形式首先我们应该知道Perl程序中，正则表达式有三种存在形式，他们分别是：匹配：m/;/（还可以简写为/;/，略去m）替换：s/;/;/转化：tr/;/
2、;/这三种形式一般都和=或!搭配使用（其中=表示相匹配，在整条语句中读作does，!表示不匹配，在整条语句中读作doesnt），并在左侧有待处理的标量变量。如果没有该变量和=!操作符，则默认为处理$_变量中的内容。举例如下：$str=IlovePerl;$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。另外还有：
3、foreach(array)s/a/b/;#此处每次循环将从array数组中取出一个元素存放在$_变量中，并对$_进行替换处理。while(;)printif(m/error/);#这一句稍微复杂一些，他将打印FILE文件中所有包含error字符串的行。Perl的正则表达式中如果出现()，则发生匹配或替换后()内的模式被Perl解释器自动依次赋给系统$1,$2.请看下面的例子：$string=Iloveperl;$string=s/(love)/;/;#此时$1=love，并且该替换的结果是将$string变为I;perl$string=iloveperl;$string=s/(i)(.*)(
4、perl)/;$2;/;#这里$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;$stri
5、ng=tr/*/;#此时$string=iloveperl;$string=www22cgi44;$string=s/(d+)/$1*2/e;#(/d+)代表$string中的一个或多个数字字符，将这些数字字符执行*2的操作，因此最后$string变成了www44cgi88。下面给出一个完整的例子：#!/usr/bin/perlprint请输入一个字符串!n;$string=;#;代表标准输入，会让使用者输入一字符串chop($string);#将$string最后一个换行的字符n删除掉if($string=/perl/)print(输入的字符串中有perl这个字符串!n;如果输入的字符串含有
6、perl这个字符串的话，就会显示后面的提示信息。9.2正则表达式中的常用模式下面是正则表达式中的一些常用模式。/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匹配所有非小写字母字符匹配字符开头的字符$匹配字符结尾
7、的字符d匹配一个数字的字符，和0-9语法一样d+匹配多个数字字符串，和0-9+语法一样D非数字，其他同dD+非数字，其他同d+w英文字母或数字的字符串，和a-zA-Z0-9语法一样w+和a-zA-Z0-9+语法一样W非英文字母或数字的字符串，和a-zA-Z0-9语法一样W+和a-zA-Z0-9+语法一样s空格，和ntrf语法一样s+和ntrf+一样S非空格，和ntrf语法一样S+和ntrf+语法一样b匹配以英文字母,数字为边界的字符串B匹配不以英文字母,数值为边界的字符串a|b|c匹配符合a字符或是b字符或是c字符的字符串abc匹配含有abc的字符串(pattern)()这个符号会记住所找寻到
8、的字符串，是一个很实用的语法。第一个()内所找到的字符串变成$1这个变量或是1变量，第二个()内所找到的字符串变成$2这个变量或是2变量，以此类推下去。/pattern/ii这个参数表示忽略英文大小写，也就是在匹配字符串的时候，不考虑英文的大小写问题。如果要在pattern模式中找寻一个特殊字符，如*，则要在这个字符前加上符号，这样才会让特殊字符失效下面给出一些例子：范例说明/perl/找到含有perl的字符串/perl/找到开头是perl的字符串/perl$/找到结尾是perl的字符串/c|g|i/找到含有c或g或i的字符串/cg2,4i/找到c后面跟着2个到4个g，再跟着i的字符串/cg2
9、,i/找到c后面跟着2个以上g，再跟着i的字符串/cg2i/找到c后面跟着2个g，再跟着i的字符串/cg*i/找到c后面跟着0个或多个g，再跟着i的字符串，如同/cg0,1i/cg+i/找到c后面跟着一个以上g，再跟着i的字符串，如同/cg1,i/cg?i/找到c后面跟着0个或是1个g，再跟着i的字符串，如同/cg0,1i/c.i/找到c后面跟着一个任意字符，再跟着i的字符串/c.i/找到c后面跟着二个任意字符，再跟着i的字符串/cgi/找到符合有这三个字符任意一个的字符串/cgi/找到没有这三个字符中任意一个的字符串/d/找寻符合数字的字符，可以使用/d+/来表示一个或是多个数字组成的字符串
10、/D/找寻符合不是数字的字符，可以使用/D+/来表示一个或是更多个非数字组成的字符串/*/找寻符合*这个字符，因为*在常规表达式中有它的特殊意思，所以要在这个特殊符号前加上符号，这样才会让这个特殊字符失效/abc/i找寻符合abc的字符串而且不考虑这些字符串的大小写9.3正则表达式的八大原则如果在Unix中曾经使用过sed、awk、grep这些命令的话，相信对于Perl语言中的正则表达式(RegularExpression)不会感到陌生。Perl语言由于有这个功能，所以对字符串的处理能力非常强。在Perl语言的程序中，经常可以看到正则表达式的运用，在CGI程序设计中也不例外。正则表达式是初学Perl的难点所在，不过只要一旦掌握其语法，你就可以拥有几乎无限的模式匹配能力，而且Perl编程的大部分工作都是掌握常规表达式。下面给大家介绍几条正则表达式使用过程中的8大原则。正则表达式在对付数据的战斗中可形成庞大的联盟这常常是一场战争。我们要记住下面八条原则：原则1：正则表达式有三种不同形式(匹配(m/)，替换(s/eg)和转换(tr/)。原则2：正则表达式仅对标量进行匹配($scalar=m/a/;可以工作;array=m/a/将把array作为标量对待，因此可能不会成功)。原则3：正则表达式匹配一个给定模式的最早的可能匹配。缺省时，仅匹配或替换正则表达式一次($a=s
