关闭

perl正则表达式

492人阅读 评论(0) 收藏 举报
分类:

9    Perl 中的正则表达式
正则表达式是 Perl 语言的一大特色,也是 Perl 程序中的一点难点,不过如果大家能够很好的掌握他,就可以轻易地用正则表达式来完成字符串处理的任务,当然在 CGI 程序设计中就更能得心应手了。下面我们列出一些正则表达式书写时的一些基本语法规则。

——————————————————————————–

9.1 正则表达式的三种形式

首先我们应该知道 Perl 程序中,正则表达式有三种存在形式,他们分别是:

匹配:m/<regexp>;/ (还可以简写为 /<regexp>;/ ,略去 m)

替换:s/<pattern>;/<replacement>;/

转化:tr/<pattern>;/<replacemnt>;/

这三种形式一般都和 =~ 或 !~ 搭配使用(其中 “=~” 表示相匹配,在整条语句中读作 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″。

另外还有:

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 变为 “I <love>; perl”

$string = “i love perl”;

$string =~ s/(i)(.*)(perl)/<$3>;$2<$1>;/; # 这里 $1 = “i”,$2 = ” love “,$3 = “perl”,并且替换后 $string 变为 “<perl>; love <i>;”

替换操作 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 = “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 变成了 “www44cgi88″。

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

#!/usr/bin/perl

print”请输入一个字符串!/n”;

$string = <STDIN>;; # <STIDN>;代表标准输入,会让使用者输入一字符串

chop($string); # 将$string最后一个换行的字符/n删除掉

if($string =~ /perl/){

print(”输入的字符串中有 perl 这个字符串!/n”;

}

如果输入的字符串含有 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] 匹配所有非小写字母字符

^ 匹配字符开头的字符

$ 匹配字符结尾的字符

/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 的字符串而且不考虑这些字符串的大小写

9.3 正则表达式的八大原则

如果在 Unix 中曾经使用过 sed、awk、grep 这些命令的话,相信对于 Perl 语言中的正则表达式(Regular Expression)不会感到陌生。Perl 语言由于有这个功能,所以对字符串的处理能力非常强。在Perl语言的程序中,经常可以看到正则表达式的运用,在 CGI 程序设计中也不例外。

正则表达式是初学 Perl 的难点所在,不过只要一旦掌握其语法,你就可以拥有几乎无限的模式匹配能力,而且 Perl 编程的大部分工作都是掌握常规表达式。下面给大家介绍几条正则表达式使用过程中的 8 大原则。

正则表达式在对付数据的战斗中可形成庞大的联盟——这常常是一场战争。我们要记住下面八条原则:

· 原则1:正则表达式有三种不同形式(匹配(m/ /),替换(s/ / /eg)和转换(tr/ / /))。

· 原则2:正则表达式仅对标量进行匹配( $scalar =~ m/a/; 可以工作; @array =~ m/a/ 将把@array作为标量对待,因此可能不会成功)。

· 原则3:正则表达式匹配一个给定模式的最早的可能匹配。缺省时,仅匹配或替换正则表达式一次( $a = ’string string2′; $a =~ s/string/ /; 导致 $a = ’string 2′)。

· 原则4:正则表达式能够处理双引号所能处理的任意和全部字符( $a =~ m/$varb/ 在匹配前把varb扩展为变量;如果 $varb = ‘a’ $a = ‘as’,$a =~ s/$varb/ /; 等价于 $a =~ s/a/ /; ,执行结果使 $a = ” s” )。

· 原则5:正则表达式在求值过程中产生两种情况:结果状态和反向引用: $a=~ m/pattern/ 表示 $a 中是否有子串 pattern 出现,$a =~ s/(word1)(word2)/$2$1/ 则“调换”这两个单词。

· 原则6:正则表达式的核心能力在于通配符和多重匹配运算符以及它们如何操作。$a =~ m//w+/ 匹配一个或多个单词字符;$a =~ m//d/” 匹配零个或多个数字。

· 原则7:如果欲匹配不止一个字符集合,Perl使用 “|” 来增加灵活性。如果输入 m/(cat|dog)/ 则相当于“匹配字符串 cat 或者 dog。

· 原则8:Perl用 (?..) 语法给正则表达式提供扩展功能。(这一点请同学们课后看相关资料)

想要学习所有这些原则?我建议大家先从简单的开始,并且不断的尝试和实验。实际上如果学会了 $a =~ m/ERROR/ 是在 $a 中查找子串ERROR,那么你就已经比在 C 这样的低层语言中得到了更大的处理能力。

——————————————————————————–

字符

描述

/

将下一个字符标记为一个特殊字符、或一个原义字符、或一个 向后引用、或一个八进制转义符。例如,‘n’ 匹配字符 “n” 。‘/n’ 匹配一个换行符。序列 ‘//’ 匹配 “/” 而 “/(” 则匹配 “(” 。

^

匹配输入字符串的开始位置。如果设置了 RegExp 对象的 Multiline 属性,^ 也匹配 ‘/n’ 或 ‘/r’ 之后的位置。

$

匹配输入字符串的结束位置。如果设置了RegExp 对象的 Multiline 属性,$ 也匹配 ‘/n’ 或 ‘/r’ 之前的位置。

*

匹配前面的子表达式零次或多次。例如,zo* 能匹配 “z” 以及 “zoo” 。* 等价于{0,} 。

+

匹配前面的子表达式一次或多次。例如,‘zo+’ 能匹配 “zo” 以及 “zoo” ,但不能匹配 “z” 。+ 等价于 {1,} 。

?

匹配前面的子表达式零次或一次。例如,“do(es)?” 可以匹配 “do” 或 “does” 中的“do” 。? 等价于 {0,1} 。

{n}

n 是一个非负整数。匹配确定的 n 次。例如,‘o{2}’ 不能匹配 “Bob” 中的 ‘o’ ,但是能匹配 “food” 中的两个 o 。

{n,}

n 是一个非负整数。至少匹配n 次。例如,‘o{2,}’ 不能匹配 “Bob” 中的 ‘o’ ,但能匹配 “foooood” 中的所有 o 。‘o{1,}’ 等价于 ‘o+’ 。‘o{0,}’ 则等价于 ‘o*’ 。

{n,m}

m 和 n 均为非负整数,其中n <= m 。最少匹配 n 次且最多匹配 m 次。例如,“o{1,3}” 将匹配 “fooooood” 中的前三个 o 。‘o{0,1}’ 等价于 ‘o?’ 。请注意在逗号和两个数之间不能有空格。

?

当 该字符紧跟在任何一个其他限制符 (*, +, ?, {n}, {n,}, {n,m}) 后面时,匹配模式是非贪婪的。非贪婪模式尽可能少的匹配所搜索的字符串,而默认的贪婪模式则尽可能多的匹配所搜索的字符串。例如,对于字符串 “oooo” ,‘o+?’ 将匹配单个 “o” ,而 ‘o+’ 将匹配所有 ‘o’ 。

.

匹配除 “/n” 之外的任何单个字符。要匹配包括 ‘/n’ 在内的任何字符,请使用象 ‘[./n]’ 的模式。

(pattern)

匹配 pattern 并获取这一匹配。所获取的匹配可以从产生的 Matches 集合得到,在VBScript 中使用 SubMatches 集合,在JScript 中则使用 $0…$9 属性。要匹配圆括号字符,请使用 ‘/(’ 或 ‘/)’ 。

(?:pattern)

匹 配 pattern 但不获取匹配结果,也就是说这是一个非获取匹配,不进行存储供以后使用。这在使用 “ 或” 字符 (|) 来组合一个模式的各个部分是很有用。例如, ‘industr(?:y|ies) 就是一个比 ‘industry|industries’ 更简略的表达式。

(?=pattern)

正 向预查,在任何匹配 pattern 的字符串开始处匹配查找字符串。这是一个非获取匹配,也就是说,该匹配不需要获取供以后使用。例如,‘Windows (?=95|98|NT|2000)’ 能匹配 “Windows 2000″ 中的 “Windows” ,但不能匹配 “Windows 3.1″ 中的 “Windows” 。预查不消耗字符,也就是说,在一个匹配发生后,在最后一次匹配之后立即开始下一次匹配的搜索,而不是从包含预查的字符之后开始。

(?!pattern)

负 向预查,在任何不匹配 pattern 的字符串开始处匹配查找字符串。这是一个非获取匹配,也就是说,该匹配不需要获取供以后使用。例如‘Windows (?!95|98|NT|2000)’ 能匹配 “Windows 3.1″ 中的 “Windows” ,但不能匹配 “Windows 2000″ 中的 “Windows” 。预查不消耗字符,也就是说,在一个匹配发生后,在最后一次匹配之后立即开始下一次匹配的搜索,而不是从包含预查的字符之后开始

x|y

匹配 x 或 y 。例如,‘z|food’ 能匹配 “z” 或 “food” 。‘(z|f)ood’ 则匹配 “zood” 或 “food” 。

[xyz]

字符集合。匹配所包含的任意一个字符。例如, ‘[abc]’ 可以匹配 “plain” 中的 ‘a’ 。

[^xyz]

负值字符集合。匹配未包含的任意字符。例如, ‘[^abc]’ 可以匹配 “plain” 中的‘p’ 。

[a-z]

字符范围。匹配指定范围内的任意字符。例如,‘[a-z]’ 可以匹配 ‘a’ 到 ‘z’ 范围内的任意小写字母字符。

[^a-z]

负值字符范围。匹配任何不在指定范围内的任意字符。例如,‘[^a-z]’ 可以匹配任何不在 ‘a’ 到 ‘z’ 范围内的任意字符。

/b

匹配一个单词边界,也就是指单词和空格间的位置。例如, ‘er/b’ 可以匹配“never” 中的 ‘er’ ,但不能匹配 “verb” 中的 ‘er’ 。

/B

匹配非单词边界。‘er/B’ 能匹配 “verb” 中的 ‘er’ ,但不能匹配 “never” 中的 ‘er’ 。

/cx

匹配由 x 指明的控制字符。例如, /cM 匹配一个 Control-M 或回车符。x 的值必须为 A-Z 或 a-z 之一。否则,将 c 视为一个原义的 ‘c’ 字符。

/d

匹配一个数字字符。等价于 [0-9] 。

/D

匹配一个非数字字符。等价于 [^0-9] 。

/f

匹配一个换页符。等价于 /x0c 和 /cL 。

/n

匹配一个换行符。等价于 /x0a 和 /cJ 。

/r

匹配一个回车符。等价于 /x0d 和 /cM 。

/s

匹配任何空白字符,包括空格、制表符、换页符等等。等价于 [ /f/n/r/t/v] 。

/S

匹配任何非空白字符。等价于 [^ /f/n/r/t/v] 。

/t

匹配一个制表符。等价于 /x09 和 /cI 。

/v

匹配一个垂直制表符。等价于 /x0b 和 /cK 。

/w

匹配包括下划线的任何单词字符。等价于‘[A-Za-z0-9_]’ 。

/W

匹配任何非单词字符。等价于 ‘[^A-Za-z0-9_]’ 。

/xn

匹配 n ,其中 n 为十六进制转义值。十六进制转义值必须为确定的两个数字长。例如,‘/x41′ 匹配 “A” 。‘/x041′ 则等价于 ‘/x04′ & “1″ 。正则表达式中可以使用 ASCII 编码。.

/num

匹配 num ,其中 num 是一个正整数。对所获取的匹配的引用。例如,‘(.)/1′ 匹配两个连续的相同字符。

/n

标识一个八进制转义值或一个向后引用。如果 /n 之前至少 n 个获取的子表达式,则 n 为向后引用。否则,如果 n 为八进制数字 (0-7) ,则 n 为一个八进制转义值。

/nm

标 识一个八进制转义值或一个向后引用。如果 /nm 之前至少有 nm 个获得子表达式,则 nm 为向后引用。如果 /nm 之前至少有 n 个获取,则 n 为一个后跟文字 m 的向后引用。如果前面的条件都不满足,若 n 和 m 均为八进制数字 (0-7) ,则 /nm 将匹配八进制转义值 nm 。

/nml

如果 n 为八进制数字 (0-3) ,且 m 和 l 均为八进制数字 (0-7) ,则匹配八进制转义值 nml 。

/un

匹配 n ,其中 n 是一个用四个十六进制数字表示的 Unicode 字符。例如, /u00A9 匹配版权符号 (?) 。

 

——————————————————————————–

止贪婪 

在后面加?, 比如  .*?

—————————————————————————————

一、简介
二、匹配操作符
三、模式中的特殊字符
1、字符+
2、字符 []和[^]
3、字符 *和?
4、转义字符
5、匹配任意字母或数字
6、锚模式
7、模式中的变量替换
8、字符范围转义前缀
9、匹配任意字符
10、匹配指定数目的字符
11、指定选项
12、模式的部分重用
13、转义和特定字符的执行次序
14、指定模式定界符
15、模式次序变量
四、模式匹配选项
1、匹配所有可能的模式(g选项)
2、忽略大小写(i选项)例
3、将字符串看作多行(m选项)
4、只执行一次变量替换例
5、将字符串看作单行例
6、在模式中忽略空格
五、替换操作符
六、翻译操作符
七、扩展模式匹配
1、不存贮括号内的匹配内容
2、内嵌模式选项
3、肯定的和否定的预见匹配
4、模式注释

一、简介
模式指在字符串中寻找的特定序列的字符,由反斜线包含:/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词:@array = split(/ /,  $line);
二、匹配操作符 =~、!~
=~检验匹配是否成功: $result =  $var =~ /abc/;若在该字符串中找到了该模式,则返回非零值,即true,不匹配则返回0,即false。!~则相反。
这两个操作符适于条件控制中,如:
if ( $question =~ /please/) {
print (”Thank you for being polite!/n”);
}
else {
print (”That was not very polite!/n”);
}
三、模式中的特殊字符
PERL在模式中支持一些特殊字符,可以起到一些特殊的作用。
1、字符 +
+意味着一个或多个相同的字符,如:/de+f/指def、deef、deeeeef等。它尽量匹配尽可能多的相同字符,如/ab+/在字符串abbc中匹配的将是abb,而不是ab。
当一行中各单词间的空格多于一个时,可以如下分割:
@array = split (/ +/,  $line);
注:split函数每次遇到分割模式,总是开始一个新单词,因此若 $line以空格打头,则@array的第一个元素即为空元素。但其可以区分是否真有单词,如若 $line中只有空格,则@array则为空数组。且上例中TAB字符被当作一个单词。注意修正。
2、字符 []和[^]
[] 意味着匹配一组字符中的一个,如/a[0123456789]c/将匹配a加数字加c的字符串。与+联合使用例:/d[eE]+f/匹配def、dEf、 deef、dEdf、dEEEeeeEef等。^表示除其之外的所有字符,如:/d[^deE]f/匹配d加非e字符加f的字符串。
3、字符 *和?
它们与+类似,区别在于*匹配0个、1个或多个相同字符,?匹配0个或1个该字符。如/de*f/匹配df、def、deeeef等;/de?f/匹配df或def。
4、转义字符
如果你想在模式中包含通常被看作特殊意义的字符,须在其前加斜线”/”。如://*+/中/*即表示字符*,而不是上面提到的一个或多个字符的含义。斜线的表示为////。在PERL5中可用字符对/Q和/E来转义。
5、匹配任意字母或数字
上面提到模式/a[0123456789]c/匹配字母a加任意数字加c的字符串,另一种表示方法为:/a[0-9]c/,类似的,[a-z]表示任意小写字母,[A-Z]表示任意大写字母。任意大小写字母、数字的表示方法为:/[0-9a-zA-Z]/。
6、锚模式

锚 描述
^ 或 /A 仅匹配串首
$ 或 /Z 仅匹配串尾
/b 匹配单词边界
/B 单词内部匹配

例1:/^def/只匹配以def打头的字符串,/ $def/只匹配以def结尾的字符串,结合起来的/^def $/只匹配字符串def(?)。/A和/Z在多行匹配时与^和 $不同。
例2:检验变量名的类型:
if ( $varname =~ /^/ $[A-Za-z][_0-9a-zA-Z]* $/) {
print (” $varname is a legal scalar variable/n”);
} elsif ( $varname =~ /^@[A-Za-z][_0-9a-zA-Z]* $/) {
print (” $varname is a legal array variable/n”);
} elsif ( $varname =~ /^[A-Za-z][_0-9a-zA-Z]* $/) {
print (” $varname is a legal file variable/n”);
} else {
print (”I dont understand what  $varname is./n”);
}
例 3:/b在单词边界匹配://bdef/匹配def和defghi等以def打头的单词,但不匹配abcdef。/def/b/匹配def和abcdef 等以def结尾的单词,但不匹配defghi,//bdef/b/只匹配字符串def。注意://bdef/可匹配 $defghi,因为 $并不被看作是单词的部分。
例4:/B在单词内部匹配://Bdef/匹配abcdef等,但不匹配def;/def/B/匹配defghi等;//Bdef/B/匹配cdefg、abcdefghi等,但不匹配def,defghi,abcdef。
7、模式中的变量替换
将句子分成单词:
$pattern = “[//t ]+”;
@words = split(/ $pattern/,  $line);
8、字符范围转义

E 转义字符 描述 范围
/d 任意数字 [0-9]
/D 除数字外的任意字符 [^0-9]
/w 任意单词字符 [_0-9a-zA-Z]
/W 任意非单词字符 [^_0-9a-zA-Z]
/s 空白 [ /r/t/n/f]
/S 非空白 [^ /r/t/n/f]

例:/[/da-z]/匹配任意数字或小写字母。
9、匹配任意字符
字符”.”匹配除换行外的所有字符,通常与*合用。
10、匹配指定数目的字符
字符对{}指定所匹配字符的出现次数。如:/de{1,3}f/匹配def,deef和deeef;/de{3}f/匹配deeef;/de{3,}f/匹配不少于3个e在d和f之间;/de{0,3}f/匹配不多于3个e在d和f之间。
11、指定选项
字符”|”指定两个或多个选择来匹配模式。如:/def|ghi/匹配def或ghi。
例:检验数字表示合法性
if ( $number =~ /^-?/d+ $|^-?0[xX][/da-fa-F]+ $/) {
print (” $number is a legal integer./n”);
} else {
print (” $number is not a legal integer./n”);
}
其中 ^-?/d+ $ 匹配十进制数字,^-?0[xX][/da-fa-F]+ $ 匹配十六进制数字。
12、模式的部分重用
当模式中匹配相同的部分出现多次时,可用括号括起来,用/n来多次引用,以简化表达式:
//d{2}([/W])/d{2}/1/d{2}/ 匹配:
12-05-92
26.11.87
07 04 92等
注意://d{2}([/W])/d{2}/1/d{2}/ 不同于/(/d{2})([/W])/1/2/1/ ,后者只匹配形如17-17-17的字符串,而不匹配17-05-91等。
13、转义和特定字符的执行次序
象操作符一样,转义和特定字符也有执行次序:

特殊字符 描述
() 模式内存
+ * ? {} 出现次数
^  $ /b /B 锚
| 选项

14、指定模式定界符
缺省的,模式定界符为反斜线/,但其可用字母m自行指定,如:
m!/u/jqpublic/perl/prog1! 等价于///u//jqpublic//perl//prog1/
注:当用字母作为定界符时,不做变量替换;当用特殊字符作为定界符时,其转义功能或特殊功能即不能使用。
15、模式次序变量
在模式匹配后调用重用部分的结果可用变量 $n,全部的结果用变量 $&。
$string = “This string contains the number 25.11.”;
$string =~ /-?(/d+)/.?(/d+)/; # 匹配结果为25.11
$integerpart =  $1; # now  $integerpart = 25
$decimalpart =  $2; # now  $decimalpart = 11
$totalpart =  $&; # now totalpart = 25.11
四、模式匹配选项

选项 描述
g 匹配所有可能的模式
i 忽略大小写
m 将串视为多行
o 只赋值一次
s 将串视为单行
x 忽略模式中的空白

1、匹配所有可能的模式(g选项)
@matches = “balata” =~ /.a/g; # now @matches = (”ba”, “la”, “ta”)
匹配的循环:
while (”balata” =~ /.a/g) {
$match =  $&;
print (” $match/n”);
}
结果为:
ba
la
ta
当使用了选项g时,可用函数pos来控制下次匹配的偏移:
$offset = pos( $string);
pos( $string) =  $newoffset;
2、忽略大小写(i选项)例
/de/i 匹配de,dE,De和DE。
3、将字符串看作多行(m选项)
在此情况下,^符号匹配字符串的起始或新的一行的起始; $符号匹配任意行的末尾。
4、只执行一次变量替换例
$var = 1;
$line = ;
while ( $var < 10) {
$result =  $line =~ / $var/o;
$line = ;
$var++;
}
每次均匹配/1/。
5、将字符串看作单行例
/a.*bc/s匹配字符串axxxxx /nxxxxbc,但/a.*bc/则不匹配该字符串。
6、在模式中忽略空格
//d{2} ([/W]) /d{2} /1 /d{2}/x等价于//d{2}([/W])/d{2}/1/d{2}/。
五、替换操作符
语法为s/pattern/replacement/,其效果为将字符串中与pattern匹配的部分换成replacement。如:
$string = “abc123def”;
$string =~ s/123/456/; # now  $string = “abc456def”;
在替换部分可使用模式次序变量 $n,如s/(/d+)/[ $1]/,但在替换部分不支持模式的特殊字符,如{},*,+等,如s/abc/[def]/将把abc替换为[def]。
替换操作符的选项如下表:

选项 描述
g 改变模式中的所有匹配
i 忽略模式中的大小写
e 替换字符串作为表达式
m 将待匹配串视为多行
o 仅赋值一次
s 将待匹配串视为单行
x 忽略模式中的空白

注:e选项把替换部分的字符串看作表达式,在替换之前先计算其值,如:
$string = “0abc1″;
$string =~ s/[a-zA-Z]+/ $& x 2/e; # now  $string = “0abcabc1″
六、翻译操作符
这是另一种替换方式,语法如:tr/string1/string2/。同样,string2为替换部分,但其效果是把string1中的第一个字符替换为 string2中的第一个字符,把string1中的第二个字符替换为string2中的第二个字符,依此类推。如:
$string = “abcdefghicba”;
$string =~ tr/abc/def/; # now string = “defdefghifed”
当string1比string2长时,其多余字符替换为string2的最后一个字符;当string1中同一个字符出现多次时,将使用第一个替换字符。
翻译操作符的选项如下:

选项 描述
c 翻译所有未指定字符
d 删除所有指定字符
s 把多个相同的输出字符缩成一个

如 $string =~ tr//d/ /c;把所有非数字字符替换为空格。 $string =~ tr//t //d;删除tab和空格;  $string =~ tr/0-9/ /cs;把数字间的其它字符替换为一个空格。

七、扩展模式匹配
PERL支持PERL4和标准UNIX模式匹配操作所没有的一些模式匹配能力。其语法为:(?pattern),其中c是一个字符,pattern是起作用的模式或子模式。
1、不存贮括号内的匹配内容
在PERL的模式中,括号内的子模式将存贮在内存中,此功能即取消存贮该括号内的匹配内容,如/(?:a|b|c)(d|e)f/1/中的/1表示已匹配的d或e,而不是a或b或c。
2、内嵌模式选项
通常模式选项置于其后,有四个选项:i、m、s、x可以内嵌使用,语法为:/(?option)pattern/,等价于/pattern/option。
3、肯定的和否定的预见匹配
肯定的预见匹配语法为/pattern(?=string)/,其意义为匹配后面为string的模式,相反的,(?!string)意义为匹配后面非string的模式,如:
$string = “25abc8″;
$string =~ /abc(?=[0-9])/;
$matched =  $&; #  $&为已匹配的模式,此处为abc,而不是abc8
4、模式注释
PERL5中可以在模式中用?#来加注释,如:
if ( $string =~ /(?i)[a-z]{2,3}(?# match two or three alphabetic characters)/ {

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:566562次
    • 积分:5450
    • 等级:
    • 排名:第4890名
    • 原创:127篇
    • 转载:35篇
    • 译文:66篇
    • 评论:27条
    最新评论