七、自增自减操作符:++、--(与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;
|