处理 SSI 文件时出错
Perl常规表达式(1)  Perl常规表达式(1)2006-3-27 17:25:16Perl常规表达式(1)2006-3-27 17:25:16Perl常规表达式(1)
如果在Unix中曾经使用过sde,awk,grep这些指令的话,相信对于 Perl 语言中的常规表达式(Regular Expression)应该不会感到陌生才对。在Perl语言中因为有这个功能,所以对于字符串的处理能力是非常强有力的。Regular Expression可视为用来处理字符串的一种模式(pattern),其使用的格式为
/pattern/。在Perl语言的程序中,经常可以看到类似语法的应用,在CGI程序设计中也不例外。只要能够善用常规表达式的话,要处理任何难的字符串皆可迎刃而解,在本章中笔者会用深入浅出的方式来介绍Regular Expression的用法。
常规表达式(Regular Expression)也译作正则表达式或文字处理模式，是指定模式的一种方法，这种模式对文本进行筛选，只匹配特定的字符串。一旦匹配到了一个字符串，就可以从大量的文本中将其抽取出来，或者利用另一个字符串来替代这个字符串。
常规表达式也是初学Perl者的难点所在，但一旦掌握其语法，它们就拥有几乎无限的模式匹配能力，而且Perl编程的大部分工作都是掌握常规表达式。
一 常规表达式中,/pattern/常用到的语法
-------------------------------------------------------------------------------- /pattern/ 结果
除了换行字符\n外,找寻只有一个字符的字符串
x? 找寻0个或是1个x字符
x* 找寻0个或是0个以上的x字符
.* 找寻0个或是0个以上的任何字符
x+ 找寻0个或是1个以上的x字符
.+ 找寻1个或是1个以上的任何字符
{m} 找寻刚好是m个个数指定的字符
{m,n} 找寻在m个数个数以上,n个个数以下指定的字符
{m,} 找寻m个个数以上指定的字符
〔〕 找寻符合〔〕内的字符
〔^〕 找寻不符合〔〕内的字符
〔0-9〕 找寻符合0到9的任何一个字符
〔a-z〕 找寻符合a到z的任何一个字符
〔^0-9〕 找寻不符合0到9的任何一个字符
〔^a-z〕 找寻不符合a到z的任何一个字符
^ 找寻字符开头的字符
$ 找寻字符结尾的字符
\d 找寻一个digit(数字)的字符,和〔0-9〕语法一样
\d+ 找寻一个digit(数字)以上的字符串,和〔0-9〕+语法一样
\D 找寻一个non-digit(非数字)的字符,和〔^0-9〕语法一样
\D+ 找寻一个non-digit(非数字)以上的字符,和〔^0-9〕+语法一样
\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模式中找寻一个有特殊的意义的字符,要在 这个字符前加上\这个符号,这样才会让这个特殊字符失效
二 常规表达式(Regular Expression)的简单范例
看了上一小节文字处理模(Regular Expression)之的,初学者对于这个语法的应用可能还不是很清楚,所以笔者会在这一小节中,举出一些在常规表达式中常用的范例给大家看看: 范例 说明 /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,再跟着c的字符串,如同/cg{1,}i/
/cg?i/ 找到c后面跟着0个或是一个g,再跟着c的字符串,如同/cg{0,1}i/
/c.i/ 找到c后面跟着一个任意字符,再跟着i的字符串
/c..i/ 找到c后面跟着二个任意字符,再跟着i的字符串
/〔cgi〕/ 找到符合有这三个字符任意一个的字符串
/〔^cgi〕/ 找到没有这三个字符中任意一个的字符串
/\d/ 找寻符合数值的字符串
可以使用/\d+/来表示一个或是多个数值的字符串
/\D/ 找寻符合不是数值的字符串
可以使用/\D+/来表示一个或是更多个非数值的字符串
/\w/ 找寻符合英文字母,数值的字符串
可以使用/\w+/来表示一个或是更多个英文字母,数值的字符串
/\W/ 找寻符合非英文字母,数值字符的字符串
可以使用/\W+/来表示一个或是更多个非英文字母,数值的字符串
/\s/ 找寻符合空白的字符串
可以使用/\s+/来表示一个或是更多个空白字符的字符串
/\S/ 找寻符合不是空白的字符串
可以使用/\S+/来表示一个或是更多不是空白的字符的字符串
/\*/ 找寻符合*这个符号的字符串,因为*在常规表达式中有它的特殊意思,所以要在这个特殊符号前加上\这个符号,这样才会让这个特殊字符失效
/abc/i 找寻符合abc的字符串而且不考虑这些符合字符串的大小写
Perl常规表达式(1) Perl常规表达式(1)2006-3-27 17:25:16Perl常规表达式(1)2006-3-27 17:25:16Perl常规表达式(1) |
