perl实例分析教程之三-Perl-idc中文资讯站-客观公证的IDC产业权威媒体,关注域名、虚拟主机、服务器、网络、开源技术资讯，整合运营商资源，客观评价各地机房带宽线路质量、IDC企业名录等信息

perl实例分析教程之三

来源：linux宝库作者：linux宝库发布时间:2007-09-30 00:00:00

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

喜欢本文，那就收藏到：