perl实例分析教程之三

王朝perl·作者佚名  2008-05-18
窄屏简体版  字體: |||超大  

七、自增自减操作符:++、--(与C++中的用法相同)

.不要在变量两边都使用此种操作符:++$var-- # error

.不要在变量自增/减后在同一表达式中再次使用:$var2 = $var1 + ++$var1; # error

.在PERL中++可用于字符串,但当结尾字符为'z'、'Z'、'9'时进位,如:

$stringvar = "abc";

$stringvar++; # $stringvar contains "abd" now

$stringvar = "aBC";

$stringvar++; # $stringvar contains "aBD" now

$stringvar = "abz";

$stringvar++; # $stringvar now contains "aca"

$stringvar = "AGZZZ";

$stringvar++; # $stringvar now contains "AHAAA"

$stringvar = "ab4";

$stringvar++; # $stringvar now contains "ab5"

$stringvar = "bc999";

$stringvar++; # $stringvar now contains "bd000"

.不要使用--,PERL将先将字符串转换为数字再进行自减

$stringvar = "abc";

$stringvar--; # $stringvar = -1 now

.如果字符串中含有非字母且非数字的字符,或数字位于字母中,则经过++运算前值转换为数字零,因此结果为1,如:

$stringvar = "ab*c";

$stringvar++;

$stringvar = "ab5c";

$stringvar++;

八、字符串联结和重复操作符

联接: .

重复:x

联接且赋值(类似+=): .=

例:

$newstring = "potato" . "head";

$newstring = "t" x 5;

$a = "be";

$a .= "witched"; # $a is now "bewitched"

九、逗号操作符

其前面的表达式先进行运算,如:

$var1 += 1, $var2 = $var1;

等价于

$var1 += 1;

$var2 = $var1;

使用此操作符的唯一理由是提高程序的可读性,将关系密切的两个表达式结合在一起,如:

$val = 26;

$result = (++$val, $val + 5); # $result = 32

注意如果此处没有括号则意义不同:

$val = 26;

$result = ++$val, $val + 5; # $result = 27

十、条件操作符

与C中类似,条件?值1:值2,当条件为真时取值1,为假时取值2,如:

$result = $var == 0 ? 14 : 7;

$result = 43 + ($divisor == 0 ? 0 : $dividend / $divisor);

PERL 5中,还可以在赋值式左边使用条件操作符来选择被赋值的变量,如:

$condvar == 43 ? $var1 : $var2 = 14;

$condvar == 43 ? $var1 = 14 : $var2 = 14;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航