PERL正则表达式用法说明.docx

1.正则表达式的三种形式 首先我们应该知道Perl程序中,正则表达式有三种存在形式,他们分别是： 匹配：m/regexp/（还可以简写为/regexp/,略去m） 替换：s/pattern/replacement/ 转化：tr/pattern/replacemnt/ 这三种形式一般都和=~或!~搭配使用,并在左侧有待处理的标量变量,如果没有该变量和=~!~操作符,则默认为处理$_变量中的内容. (其中=~表示相匹配,在整条语句中读作does,!~表示不匹配,在整条语句中读作doesnt) 举例如下： $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. 另外还有： foreach(@array){s/a/b/;}#此处每次循环将从@array数组中取出一个元素存放在$_变量中,并对$_进行替换处理. while(FILE){print if(m/error/);}#这一句稍微复杂一些,他将打印FILE文件中所有包含error字符串的行. Perl的正则表达式中如果出现(),则发生匹配或替换后()内的模式被Perl解释器自动依次赋给系统$1,$2...... 请看下面的例子： $string=I love perl; $string=~s/(love)/$1/; #此时$1=love,并且该替换的结果是将$string变为Iloveperl $string=i love perl; $string=~s/(i)(.*)(perl)/$3$2$1/;#这里$1=i,$2=love,$3=perl,并且替换后$string变为perllovei 替换操作s/pattern/replacement/还可以在末尾加上e或g参数,他们的含义分别为： s/pattern/replacement/g 表示把待处理字符串中所有符合pattern的模式全部替换为replacement字符串. s/pattern/replacement/e表示将把replacemnet部分当作一个运算符,这个参数用的不多. 比如下面的例子： $string=i:love:perl; $string=~s/:/*/;#此时$string=i*love:perl; $string=~s/:/*/g;#此时$string=i*love*perl; $string=~tr/*//;#此时$string=iloveperl; $string=www22cgi44; $string=~s/(\d+)/$1*2/e;#(/d+)代表$string中的一个或多个数字字符,将这些数字字符执行*2的操作,因此最后$string变成了www44cgi88. 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] 匹配所有非小写字母字符