Perl语言的文字处理模式之三-Perl-idc中文资讯站-客观公证的IDC产业权威媒体,关注域名、虚拟主机、服务器、网络、开源技术资讯，整合运营商资源，客观评价各地机房带宽线路质量、IDC企业名录等信息

Perl语言的文字处理模式之三

来源：linux宝库作者：linux宝库发布时间:2007-09-30 00:00:00

　　三、文字处理模式(Regular Expression)相关的运算符及函数

　　在perl程式写作中常会用到=~和!~这两个运算符及s和tr这二个函数来和文字处理模式/pattern/搭配而成一个运算式,假如能够活用这些指令的话,就能够很轻易地来处理一些字符串，当然在CGI程式设计中也就更能得心应手了。现在就让作者来介绍这些运算符及函数的用法：

　　--------------------------------------------------------------------------

　　指令: /pattern/文字运算

　　说明:假如在文字运算中没有使用=~或是!~运算符指定一个字符串来做运算的话, 就会

　　使用内定的输出变量$_来做/pattern/文字运算。

　　范例一:

　　$string="chmod7llcgi";

　　$string=~/(w+)s+(d+)/;

　　第一个(w+)是代表找寻数个字母，并将所找到的字符串指派给$l这个变量,而s+代

　　表找寻多个空白的字符串,最后(d+)代表找寻数个数值,并将所找到的字符串指派给

　　$2这个变量。所以$l="chmod",$2=71l,但是$string还是等于原来的字符串,没有改变。

　　范例二:

　　$_="chmod71lcgi";

　　/(w+)s+(d+)/;

　　因为是把字符串指定给$_这个变量,所以能够不用=~这个运算符就会得到

　　$l="chmod", $2=711;而且$_还是等于原来的字符串,没有改变。

　　范例三:

　　$string="chmod71lcgi";

　　@list=split(/s+/,$string);

　　以一个或是多个空白字符来分割$string这个字符串,这是个很常用的语法。此时

　　@list=("chmod","7ll","cgi");

　　指令: =~相配运算符

　　说明:这是Perl语言中特有的语法,通常会和文字处理模式来作运算。

　　范例:

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

　　$string=<>;

　　#<>代表标准输入,会让使用者输入一字符串

　　chop($string);

　　#将$string最后一个换行的字符n删除掉

　　if($string=~/cgi/){

　　print"输入的字符串中有cgi这个字符串!n";

　　}

　　假如输入的字符串中含有cgi这个字符串的话,就会显示出这个信息。

　　--------------------------------------------------------------------------

　　指令:!~不相配运算符

　　说明:这也是Perl语言中特有的语法,通常会和文字处理模式来作运算。

　　范例:

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

　　$string=<>;

　　#<>代表标准输入,会让使用者输入一字符串

　　chop($string);

　　#将$stdng最后一个换行的字符n删除掉

　　if($string!~/cgi/){

　　print"输入的字符串中没有cgi这个字符串!n";

　　}

　　假如输入的字符串中没有含有cgi这个字符串的话,就会显示出这个信息。

　　--------------------------------------------------------------------------

　　指令:tr转换函数

　　语法:tr/SEARCHLIST/REPLACELIST/

　　其中SEARCHLIST是要转换的字符,REPLACELIST是转换成何种字符。

　　说明:tr(translate)就是转换的意思,会把符合转换的字符转换成要转换的字符。

　　范例一:

　　$string="test1ng";

　　$string=~tr/et/ET/;#此时$string="TEsTing";

　　$string=~tr/a-z/A-Z/;#此时$string="TESTING";

　　范例二:

　　$string="CGI+Perl";

　　$string=~tr/+//;#此时$string="CGI Perl";

　　在传送CGI数据的时候会先将数据编码,其中会将空白的字符转成+这个字符,所以在

　　解码的时候要把+这个字符还原成空白的字符。

　　指令:s取代函数

　　语法:s/PATTERN/REPLACE/eg

　　其中PATTERN是文字处理(Regular Expression)的模式,REPLACE是代表取代成何种文

　　字模式。而g是这个函数最常用的参数,代表要把任何符合文字模式的字符串全部取

　　代,假如省略这个参数的话,则只取代一个符合文字模式的字符串;而加上e这个参数是代

　　表要将REPLACE的部分当成一个运算式,假如没有这个需要的话,就不用加上这个参数。

　　说明:将符合文字处理模式的字符串取代成为要取代的字符串。

　　范例一:

　　$string="i;love;perl";

　　$string=~s/:/*/：

　　#此时$string="i*love:perl";

　　$string=~s/:/*/g;

　　#此时$string="i*love*perl";

　　$stiing=~s/*/+/g;

　　#此时$string="i+love+perl";

　　$string=~s/+//g：

　　#此时$string="i love perl";

　　上一行也可写成$string=~tr/+//;效果都会相同哦!

　　$string=~s/per1/cgi/;

　　#此时$string="i love cgi";

　　范例二:

　　$string="i love per";

　　$string=~s/(love)/<$1>/;

　　第一个()内所找到的字符串变成$1,在这个范例中,会把变量love这个字符串变成

　　<>,此时$string="i<>perl";

　　$string="i love per1";

　　$string=~s/(i)(perl)/<$1><$2>/;

　　在这个范例中,会把i变成<>,perl变成<>此时$string="<>love<>";

　　$striag="i love per1";

　　$string=~s/(w+)/<$1>/g;

　　(w+)代表找寻符合一个或是多个英文字符或是数值的字符串,之后再将找到的字符串设成$l。因为加上g这个参数,所以会找到字符串中的这三个英文单字, 然后再把这三个单字分别加上<>这个符号,此时$string="<><><>";

　　范例三:

　　$string="ww22cgi44";

　　$string=~s/(d+)/$1*2/e;

　　(d+)代表要找寻$string中一个或是多个数值的字符串,再将找到的字符串设成

　　$1。加上参数e是代表要把$l*2当作是个运算式,所以$string="www44cgi44";

　　$string="www22cgi44";

　　$string=~s/(d+)/$1*2/eg;

　　加上参数e,所以会把$1*2当作是个运算式来看, 加上参数g就会把全部符合数值

　　的字符串经过运算式运算之后再把他取代,所以$string="www44cgi88";

　　范例四:

　　假设原本的字符串是$value="三八!",经CGI数据编码之后,这个字符串就会变成

　　$value="%A4T%A4K%21"。以下是个解码的示范程式:

　　$value="%A4T%A4K%2l"；

　　$value=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($l))/eg;

　　在传送CGI数据的时候会把数据编码,其中会将特别字符或是中文字符编码成以% 开头的连续两个十六进制数的字符串,所以要用s这个函数来找寻这个以%开头的字符串。为了要把找到的字符串再做解码的处理, 所以要在%这个符号之后加上 ()这个符号, 表示会把找到的字符串记忆起来并指定给$1这个变量,而且要在() 中加上代表是连续两个十六进制数值的文字处理模式(Regular Expression),也就是[a-fA-F0-9][a-fA-F0-9]。再用hex这个函数($1是代表符合的字符串)把十六进制数值转成十进制的码,之后再用pack这个函数(以C为参数,是代表 unsigned char value的意思)把这个十进制码还原成原来的字符串。最后就会把这个字符串解码成$value="三八!"。值得一提的是也能够把这个解码的程式写成:

　　$value=~s/%(..)/pack("C",hex($l))/eg;

喜欢本文，那就收藏到：

上一篇: 用perl访问mysql数据库

下一篇: Perl语言的文字处理模式之二

相关推荐

相关资讯