Perl语言的文字处理模式之三
在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="<><><>";