Perl语言的文字处理模式之3(2)

指令: =~相配运算符
说明:这是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数据的时候会先将数据编码,其中会将空白的字符转成+这个字符,所以 在
解码的时候要把+这个字符还原成空白的字符。
　 --------------------------------------------------------------------------

……