|
Perl初级教程
Perl常规表达式(2)
三 常规表达式(Regular Expresion)相关的运算符及函数
指令:/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="CGI Perl"; 在传送CGI数据的时候会先将数据编码,其中会将空白的字符转成+这个字符。 指令:s 取代函数 语法:s/PATTERN/REPLACE/eg 其中 PATTERN是文字处理(Regular Expresion)的模式; REPLACE是代表取代成何种文字模式。 而g是这个函数最常用的参数,代表要把所有符合文字模式的字符串全部取代,如果省略这个参数的话,则只取代一个符合文字模式的字符串中; 而加上e这个参数代表要将REPLACE的部分当成一个运算式,如果没有这个需要的话,就不用加上这个参数了。 说明:将符合常规表达式的字符串取成为要取代的字符串 范例一: $string="i:love:perl"; $string=~s/:/*/; #此时$string="i*love:perl"; $string=~s/:/*/g; #此时$string="i*love*perl"; $string=~s/*/+/g; #此时$string="i+love+perl"; $string=~s/+//g; #此时$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"; $string=~s(i)(perl)/<$1><$2>/; 在这个范例中,会把i变成<i>;perl变成<perl>,此时$string="<perl> love <i>"; $string="i love perl"; $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="%A4T%A4K%21"。以下是一个解码的示范程序: $value="%A4T%A4K%21"; $vlaue=~s/%(〔a-fA-F0-9〕〔a-fA-F0-9〕/pack("c",hex($1))/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($1))/eg; 在此提供给读者参考。 |