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