Perl常规表达式(2)三常规表达式(RegularExpresion)相关的运算符及函数 在perl程序写作中常会用到=~和!~这两个运算符及s和t这二个函数来和常规表达式/pattern/搭配而成一个运算式,如果能够活用这些指令的话,就可以很。轻易地来处理一些字符串,当然在CGI程序设计中了就更能得心应手了。现在就让作者来介绍这些运算符及函数的用法: -------------------------------------------------------------------------------- 指令:/pattern/文字运算 说明:如果在文字运算中没有使用=~或是!~运算符指定一个字符串来做运算的话,就会使用内定的输出变量$_来做/pattern/文字运算。 范例一: $string="chmod711cgi"; $string=~/(\W)\s (\d )/; 第一个(\W )是代表找寻数个字母,并将的找到的字符串指派给$1这个变量,而\s 代表找寻多个空白的字符串,最后(\d )代表找寻个数值,并将所找到的字符串指派给$2这个变量。所以 $1="chmod";$2=711;但是$string还是等于原来的字符串,没有改变。 范例二: $_="chmod711cgi"; /(\W)\s (\d )/; 因为是把字符串指定给$_这个变量,所以可以不用=~这个运算符就会得到 $1="chmod";$2=711;而且$_还是等于原来的字符串,没有改变。 范例三: $string="chmod711cgi"; @list=split(/s /,$string); 以上一个或是多个空白字符来分割$string这个字符串,这是一个很常用的语法。此时@list=("chmod","711","cgi"); -------------------------------------------------------------------------------- 指令:=~相配运算符 说明:这是Perl语言中特有的语法,通常会和文字处理来作运算。 范例: print"请输入一个字符串!\n"; $string=＜STDIN＞;#＜STIDN＞代表标准输入,会让使用者输入一字符串 chop($string);#将$string最后一个换行的字符\n删除掉 if($string=~/cgi/){ print("输入的字符串中有cgi这个字符串!\n"; } 如果输入的字符串含有cgi这个字符串的话,就会显示出这个信息。 -------------------------------------------------------------------------------- 指令:!~不相配运算符 说明:这也是Perl语言中特有的语法,通常会和常规表达式来运算。 范例: print"请输入一个字符串!\n"; $string=＜STDIN＞;#＜STIDN＞代表标准输入,会让使用者输入一字符串 chop($string);#将$string最后一个换行的字符\n删除掉 if($string!~/cgi/) { print("输入的字符串中有cgi这个字符串!\n"; } 如果输入的字符串中没有cgi这个字符串的话,就会显示出这个信息。 -------------------------------------------------------------------------------- 指令:tr转换函数 语法:tr/SEARCHLIST/REPLACELIST/ 其中SEARCHLIST是要转换的字符;REPLACELIST是转换成何种字符。 说明:tr(translate)就是转换的意思,会把符合转换的字符转换成要转换的字符。 范例一: $string="testing"; $string=~tr/et/ET/";#此时$string="TEsTing"; $string=~tr/a-z/A-Z/;#此时$stirng="TESTING"; 范例二: $string="CGI Perl"; $string=~tr/ //;#此时$string="CGIPerl";在传送CGI数据的时候会先将数据编码,其中会将空白的字符转成 这个字符。 ------------------------------------------------------------------------------- 指令:s取代函数 语法:s/PATTERN/REPLACE/eg 其中 PATTERN是文字处理(RegularExpresion)的模式; REPLACE是代表取代成何种文字模式。 而g是这个函数最常用的参数,代表要把所有符合文字模式的字符串全部取代,如果省略这个参数的话,则只取代一个符合文字模式的字符串中; 而加上e这个参数代表要将REPLACE的部分当成一个运算式,如果没有这个需要的话,就不用加上这个参数了。说明:将符合常规表达式的字符串取成为要取代的字符串 范例一: $string="i:love:perl"; ring="i*love*perl"; $string=~s/*/ /g;#此时$string="i love perl"; $string=~s/ //g;#此时$string="iloveperl"; 上一行也可写成$string=~tr/ //;效果都会一样哦! $string=~s/perl/cgi;#此时$string="ilovecgi"; 范例二: $string=~s/(love)/＜$1＞/; 第一个()内所找到的字符串变成$1,在这个范例中,会把变量love这个字符串变成＜love＞,此时$string="i＜love＞perl"; $string="iloveperl"; $string=~s(i)(perl)/＜$1＞＜$2＞/; 在这个范例中,会把i变成＜i＞;perl变成＜perl＞，此时$string="＜perl＞love＜i＞"; $string="iloveperl"; $string=~s(\W )/＜$1＞/g; (/w )代表找寻符合一个或是多个英文字符或是数值的字符串,之后再将找到的字符串设成$1。因为加上g这个参数,所以会找到字符串的这三个英文单字,然后再把这三个单字分加上＜＞这个符号,此时$string="＜perl＞＜love＞＜i＞"; 范例三: $string="www22cgi44"; $string=~s/(\d )/$1*2/e; (/d )代表要找寻$string中一个或是多个数值的字符串,再将找到的字符串设成$1。加上参数e是代表要把$1*2当作是一个运算式,所以$string="www22cgi44"; $string="www22cgi44"; $string=~s/(\d )/$1*2/eg; 加上参数e,所以会把$1*2当作是一个运算符式来看;加上参数g就会把全部符合数值的字符串经过运算式运算之后再把它取代,所以$string="www44cgi88"; 范例四: 假设原本的字符串是$value="三八!",经CGI数据编码之后,这个字符串就会变成 $value="!"。以下是一个解码的示范程序: 上一篇：Perl变量(2)--数组 下一篇：Perl变量(3)--关联数组 更多相关文章
|
推荐文章
精彩文章
|
