perl程序写作中常会用到=~和!~

在perl程序写作中常会用到=~和!~这两个运算符及s和t这二个函数来和文字处理模式/pattern/搭配而成一个运算式,如果能够活用这些指令的话,就可以很轻易地来处理一些字符串

指令:/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";