Perl 问题

本人刚学习PERL  ,边学边实践,可是遇到不少疑问 请教各位高手给予帮助:

其中#注释后面是教程里说的,包括正确结果 可是小弟输出的并不是那样!!

$string="i love perl";
print "$string/n";
$string=~s/(love)/<$1>/;
print "$string  /$1=$1  /n";
#第一个()内所找到的字符串变成$1,在这个范例中,会把变量love这个字符串变成 <>,此时$string="i<>perl";
$string="i love perl";
$string=~s/(i)(perl)/<$1><$2>/;
#在这个范例中,会把i变成<>,perl变成<>此时$string="<>love<>"; ?????????
print "$string /$1=$1 /$2=$2/n";
$string="i love perl";
$string=~s/(w+)/<$1>/g;
print "$string /$1=$1 /n";
#(w+)代表找寻符合一个或是多个英文字符或是数值的字符串,之后再将找到的字 符串设成$l。因为加上g这个参数,所以会找到字符串中的这三个英文单字, 然后 再把这三个单字分别加上<>这个符号,此时$string="<><><>"; ???????

$string1="chmod 7ll cgi";
$string1=~/(w+)s+(d+)/;
print "$string1 /$1=$1 /$2=$2/n";

$string="chmod 71l cgi";
@list=split(/s+/,$string);
print '@list ='."@list/n";  #@list=("chmod","7ll","cgi");

$string2="ww22cgi44";
$string2=~s/(d+)/$1*2/eg;
print "$string2 /$1=$1 /$2=$2/n";
#加上参数e,所以会把$1*2当作是一个运算式来看, 加上参数g就会把全部符合数 值
#的字符串经过运算式运算之后再把它取代,所以$string="www44cgi88";

阅读更多
文章标签: perl string cgi list
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭