您好,登录后才能下订单哦!
这篇文章主要介绍了perl中的正则表达式怎么用,具有一定借鉴价值,感兴趣的朋友可以参考下,希望大家阅读完这篇文章之后大有收获,下面让小编带着大家一起了解一下。
perl中的正则表达式
首先我们应该知道Perl程序中,正则表达式有三种存在形式,他们分别是:
匹配:m/<regexp>/(还可以简写为/<regexp>/,略去m)
替换:s/<pattern>/<replacement>/
转化:tr/<pattern>/<replacemnt>/
这三种形式一般都和=~或!~搭配使用,并在左侧有待处理的标量变量,如果没有该变量和=~ !~操作符,则默认为处理$_变量中的内容.
(其中"=~"表示相匹配,在整条语句中读作does,"!~"表示不匹配,在整条语句中读作doesn't)
举例如下:
$str="I lovePerl";
$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="Ilove perl"; $string=~s/(love)/<$1>/; #此时$1="love",并且该替换的结果是将$string变为"I<love>perl" $string="ilove perl"; $string=~s/(i)(.*)(perl)/<$3>$2<$1>/;#这里$1="i",$2="love",$3="perl",并且替换后$string变为"<perl>love<i>"
1、模式匹配
1.1、匹配操作符
匹配操作符 m// 用于匹配一个字符串语句或者一个正则表达式,例如,要匹配标量$bar 中的"run",代码如下所示:
实例
#!/usr/bin/perl $bar = "I am runoob site. welcome to runoob site."; if ($bar =~ /run/){ print "第一次匹配\n"; }else{ print "第一次不匹配\n"; } $bar = "run"; if ($bar =~ /run/){ print "第二次匹配\n"; }else{ print "第二次不匹配\n"; }
执行以上程序,输出结果为:
第一次匹配
第二次匹配
1.2、模式匹配修饰符
模式匹配有一些常用的修饰符,如下表所示:
修饰符 | 描述 |
i | 忽略模式中的大小写 |
m | 多行模式 |
o | 仅赋值一次 |
s | 单行模式,"."匹配"\n"(默认不匹配) |
x | 忽略模式中的空白 |
g | 全局匹配 |
cg | 全局匹配失败后,允许再次查找匹配串 |
1.3、正则表达式变量
perl处理完后会给匹配到的值存在三个特殊变量名:
$`: 匹配部分的前一部分字符串
$&: 匹配的字符串
$': 还没有匹配的剩余字符串
如果将这三个变量放在一起,你将得到原始字符串。
实例如下:
实例
#!/usr/bin/perl $string = "welcome to runoob site."; $string =~ m/run/; print "匹配前的字符串:$`\n"; print "匹配的字符串:$&\n"; print "匹配后的字符串:$'\n";
执行以上程序输出结果为:
匹配前的字符串:welcome to
匹配的字符串: run
匹配后的字符串: oobsite.
2、模式替换
2.1、替换操作符
替换操作符 s/// 是匹配操作符的扩展,使用新的字符串替换指定的字符串。基本格式如下:
s/PATTERN/REPLACEMENT/;
PATTERN 为匹配模式,REPLACEMENT为替换的字符串。
例如我们将以下字符串的"google" 替换为"runoob":
实例
#!/usr/bin/perl $string = "welcome to google site."; $string =~ s/google/runoob/; print "$string\n";
执行以上程序输出结果为:
welcome to runoob site.
2.2、替换操作修饰符
替换操作修饰符如下表所示:
修饰符 | 描述 |
i | 如果在修饰符中加上"i",则正则将会取消大小写敏感性,即"a"和"A" 是一样的。 |
m | 默认的正则开始"^"和结束"$"只是对于正则字符串如果在修饰符中加上"m",那么开始和结束将会指字符串的每一行:每一行的开头就是"^",结尾就是"$"。 |
o | 表达式只执行一次。 |
s | 如果在修饰符中加入"s",那么默认的"."代表除了换行符以外的任何字符将会变成任意字符,也就是包括换行符! |
x | 如果加上该修饰符,表达式中的空白字符将会被忽略,除非它已经被转义。 |
g | 替换所有匹配的字符串。 |
e | 替换字符串作为表达式 |
例如:
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".
3、模式转化
这是另一种替换方式,语法如:tr/string1/string2/。同样,string2为替换部分,但其效果是把string1中的第一个字符替换为string2中的第一个字符,把string1中的第二个字符替换为string2中的第二个字符,依此类推。如:
$string = "abcdefghicba"; $string =~ tr/abc/def/; # now string = "defdefghifed"
当string1比string2长时,其多余字符替换为string2的最后一个字符;当string1中同一个字符出现多次时,将使用第一个替换字符。
例如:
#!/usr/bin/perl $str = "abbcddeff"; $str =~ tr/abcc/ABCD/; print "$str\n";
将输出:
ABBCddeff
3.1、转化操作符
以下是转化操作符相关的修饰符:
修饰符 | 描述 |
c | 转化所有未指定字符 |
d | 删除所有指定字符 |
s | 把多个相同的输出字符缩成一个 |
以下实例将变量 $string中的所有小写字母转化为大写字母:
#!/usr/bin/perl $string = 'welcome to runoob site.'; $string =~ tr/a-z/A-Z/; print "$string\n";
执行以上程序输出结果为:
WELCOME TO RUNOOB SITE.
以下实例使用 /s 将变量 $string 重复的字符删除:
实例
#!/usr/bin/perl $string = 'runoob'; $string =~ tr/a-z/a-z/s; print "$string\n";
执行以上程序输出结果为:
runob
更多实例:
$string =~ tr/\d/ /c; # 把所有非数字字符替换为空格 $string =~ tr/\t //d; # 删除tab和空格 $string =~ tr/0-9/ /cs # 把数字间的其它字符替换为一个空格。
/pattern/ 结果
. 匹配除换行符以外的所有字符
x? 匹配0次或一次x字符串
x* 匹配0次或多次x字符串,但匹配可能的最少次数
x+ 匹配1次或多次x字符串,但匹配可能的最少次数
.* 匹配0次或多次的任何字符
.+ 匹配1次或多次的任何字符
x{m} 匹配刚好是m个x的指定字符串
x{m,n} 匹配大于等于m个,小于等于n个x的指定字符串
x{m,} 匹配大于等于m个x的指定字符串
[] 匹配符合[]内的字符
[^] 匹配不符合[]内的字符
[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个及2个以上g,再跟着i的字符串
/cg{2}i/ 找到c后面跟着2个g,再跟着i的字符串
/cg*i/ 找到c后面跟着0个或多个g,再跟着i的字符串,如同/cg{0,}i/
/cg+i/ 找到c后面跟着1个或多个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的字符串而且不考虑这些字符串的大小写
例如我们想匹配开头不是#的内容,可以写:
$string =~/^[^#]/;
如果想匹配开头部分不是#或者/的,可以写:
$string =~/^[^#\/]/;
·原则1:正则表达式有三种不同形式(匹配(m//),替换(s///eg)和转换(tr///)).
·原则2:正则表达式仅对标量进行匹配($scalar=~m/a/;可以工作;@array=~m/a/将把@array作为标量对待,因此可能不会成功).
·原则3:正则表达式匹配一个给定模式的最早的可能匹配.缺省时,仅匹配或替换正则表达式一次($a='stringstring2';$a=~s/string//;导致$a='string2').
·原则4:正则表达式能够处理双引号所能处理的任意和全部字符($a=~m/$varb/在匹配前把varb扩展为变量;如果$varb='a'$a='as',$a=~s/$varb//;等价于$a=~s/a//;执行结果使$a="s").
感谢你能够认真阅读完这篇文章,希望小编分享的“perl中的正则表达式怎么用”这篇文章对大家有帮助,同时也希望大家多多支持亿速云,关注亿速云行业资讯频道,更多相关知识等着你来学习!
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。