Perl 字符匹配实例解说
如果在Unix中曾经使用过sde,awk,grep这些指令的话,相信对于 Perl 语言中的文字处理模式(Regular Expression)应该不会感到陌生才对。在Perl语言中因为有这个功能,所以对于字符串的处理能力是非常强有力的。Regular Expression可视为用来处理字符串的一种模式(pattern),其使用的格式为/pattern/。在Perl语言的程序中,经常可以看到类似语法的应用,在CGI程序设计中也不例外。只要能够善用文字处理模式的话,要处理任何难的字符串皆可迎刃而解,在本章中笔者会用深入浅出的方式来介绍Regular Expression的用法。?
一 文字处理模式中,/pattern/常用到的语法
/pattern/ 结果? x? 找寻0个或是1个x字符? /pattern/i i这个参数是代表忽略英文大小写的意思,也就是在找寻字符 串的时候,不会去考虑英文的大小写? 二 文字处理模式(Regular Expression)的简单范例 看了上一小节文字处理模(Regular Expression)之的,初学者对于这个语法的应用可能还不是很清楚,所以笔者会在这一小节中,举出一些在文字处理模式中常用的范例给大家看看: 范例 说明? 三 文字处理模式(Regular Expresion)相关的运算符及函数 在perl程序写作中常会用到=~和!~这两个运算符及s和t这二个函数来和文字处理模式/pattern/搭配而成一个运算式,如果能够活用这些指令的话,就可以很。轻易地来处理一些字符串,当然在CGI程序设计中了就更能得心应手了。现在就让作者来介绍这些运算符及函数的用法:? -------------------------------------------------------------------------------- 指令:/pattern/文字运算 说明: 如果在文字运算中没有使用=~或是!~运算符指定一个字符串来做运算的话,就会使用内定的输出变量$_来做/pattern/文字运算。 范例一: $string="chmod711cgi";? 第一个(W+)是********数个字母,并将的找到的字符串指派给$1这个变量,而s+********多个空白的字符串,最后(d+)********个数值,并将所找到的字符串指派给$2这个变量。所以$1="chmod";$2=711;但是$string还是等于原来的字符串,没有改变。 范例二: $_="chmod711cgi";? 因为是把字符串指定给$_这个变量,所以可以不用=~这个运算符就会得到 $1="chmod";$2=711;而且$_还是等于原来的字符串,255)"> 范例三: $string="chmod711cgi";? 以上一个或是多个空白字符来分割$string这个字符串,这是一个很常用的语法。此时@list=("chmod","711","cgi");? 指令: =~相配运算符 说明:这是Perl语言中特有的语法,通常会和文字处理来作运算。 范例: print"请输入一个字符串! ";? print("输入的字符串中有cgi这个字符串! "; } 如果输入的字符串含有cgi这个字符串的话,就会显示出这个信息。? 指令:!~不相配运算符 说明:这也是Perl语言中特有的语法,通常会和文字处理模式来运算。 chop($string); #将$string最后一个换行的字符 删除掉? 如果输入的字符串中没有cgi这个字符串的话,255)"> 指令:tr转换函数 语法:tr/SEARCHLIST/REPLACELIST/ 其中SEARCHLIST是要转换的字符;REPLACELIST是转换成何种字符。 说明:tr(translate)就是转换的意思,会把符合转换的字符转换成要转换的字符。 $string="testing";? $string="CGI+Perl";? 在传送CGI数据的时候会先将数据编码,其中会将空白的字符转成+这个字符。? 指令:s 取代函数 语法:s/PATTERN/REPLACE/eg 其中 PATTERN是文字处理(Regular Expresion)的模式;? $string="i:love:perl";? 上一行也可写成 $string=~tr/+//;效果都会一样哦! $string=~s/perl/cgi; #此时$string="i love cgi"; $string=~s/(love)/<$1>/; 第一个()内所找到的字符串变成$1,在这个范例中,会把变量love这个字符串变成<love>,此时$string="i<love>perl"; $string="i love perl";? 在这个范例中,会把i变成<i>perl变成<perl>,此时$string="<perl> love <i>"; $string="i love perl";? (/w+)********符合一个或是多个英文字符或是数值的字符串,之后再将找到的字符串设成$1。因为加上g这个参数,所以会找到字符串的这三个英文单字,然后再把这三个单字分加上<>这个符号,此时$string="<perl><love><i>"; $string="www22cgi44";? (/d+)********寻$string中一个或是多个数值的字符串,再将找到的字符串设成$1。加上参数e是代表要把$1*2当作是一个运算式,所以$string="www22cgi44"; $string="www22cgi44";? 加上参数e,所以会把 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |