Perl 语言中的运算符

一、算术运算符 ：+(加)、-(减)、*(乘)、/(除)、**(乘幂)、%(取余)、-(单目负)

  (1)乘幂的基数不能为负，如 (-5) ** 2.5 # error；
  (2)乘幂结果不能超出计算机表示的限制，如10 ** 999999 # error
  (3)取余的操作数如不是整数，四舍五入成整数后运算；运算符右侧不能为零
  (4)单目负可用于变量： - $y ; # 等效于 $y * -1
  (5)对应有 +=、-=、*=、/=、**=、%=

二、整数比较运算符

Table 1. 整数比较运算符

操作符描述<小于>大于==等于<=小于等于>=大于等于!=不等于<=>比较，返回 1, 0, -1
操作符<=>结果为： 
0 - 两个值相等 
1 - 第一个值大 
1 - 第二个值大 

三、字符串比较运算符 

Table 2. 字符串比较运算符
操作符描述
lt小于
gt大于
eq等于
le小于等于
ge大于等于
ne不等于
cmp比较，返回 1, 0, or -1

四、逻辑运算符 

逻辑或：$a || $b 或 $a or $b 
逻辑与：$a && $b 或 $a and $b 
逻辑非：! $a 或 not $a 
逻辑异或：$a xor $b 

五、位运算符 

位与：& 
位或：| 
位非：~ 
位异或：^ 
左移：$x << 1 
右移：$x >> 2 
注：不要将&用于负整数，因为PERL将会把它们转化为无符号数。 

六、赋值运算符 

Table 3. 赋值运算符

操作符描述=Assignment only+=Addition and assignment-=Subtraction and assignment*=Multiplication and assignment/=Division and assignment%=Remainder and assignment**=Exponentiation and assignment&=Bitwise AND and assignment|=Bitwise OR and assignment^=Bitwise XOR and assignment
Table 4. 赋值运算符例子

表达式等效表达式$a = 1;none (basic assignment)$a -= 1;$a = $a - 1;$a *= 2;$a = $a * 2;$a /= 2;$a = $a / 2;$a %= 2;$a = $a % 2;$a **= 2;$a = $a ** 2;$a &= 2;$a = $a & 2;$a |= 2;$a = $a | 2;$a ^= 2;$a = $a ^ 2;
注：
1. =可在一个赋值语句中出现多次，如：
  $value1 = $value2 = "a string";
2. =作为子表达式
  ($a = $b) += 3;
  等价于
  $a = $b;
  $a += 3;

七、自增自减运算符 ：++、--

.不要在变量两边都使用此种操作符：++$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++;

八、字符串联结和重复运算符

  1. 联接: .
  2. 重复：x
  3. 联接且赋值(类似+=)： .=
例：
  $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;

十一、运算符的优先级

Table 5. 运算符的优先级

操作符描述++, --自增，自减-, ~, !单目**乘方=~, !~模式匹配*, /, %, x乘，除，取余，重复+, -, .加，减，联接<<, >>移位-e, -r, etc.文件状态<, <=, >, >=, lt, le, gt, ge不等比较==, !=, <=>, eq, ne, cmp相等比较&位与|, ^位或，位异或&&逻辑与||逻辑或..列表范围? and :条件操作符=, +=, -=, *=,赋值and so on
,逗号操作符notLow-precedence logical NOTandLow-precedence logical ANDor, xorLow-precedence logical OR and XOR
运算符结合性(associativity)： 

Table 6. 运算符结合性

操作符结合性++, --无-, ~, !Right-to-left**Right-to-left=~, !~Left-to-right*, /, %, xLeft-to-right+, -, .Left-to-right<<, >>Left-to-right-e, -r,无<, <=, >, >=, lt, le, gt, geLeft-to-right==, !=, <=>, eq, ne, cmpLeft-to-right&Left-to-right|, ^Left-to-right&&Left-to-right||Left-to-right..Left-to-right? and :Right-to-left=, +=, -=, *=,Right-to-leftand so on
,Left-to-rightnotLeft-to-rightandLeft-to-rightor, xorLeft-to-right
PERL运算符简单应用

一、赋值（Assignment）运算符

符号范例说明=$x=$y;把$x的值赋给$y+=$x+=$y;$x=$x+$y;把$x加上$y后再赋值给$x-=$x-=$y;$x=$x-$y;把$x减$y后再赋值给$x*=$x*=$y;$x=$x*$y;把$x乘$y后再赋值给$x/=$x/=$y;$x=$x/$y;把$x除$y次方后再赋值给$x**=$x**=$y;$x=$x* *$y;求出$x乘$y次方后再赋值给$x%=$x%=$y;$x=$x%$y;把$x除以$y的余数后再赋值给$x.=$str1.=$str2;$str1=$str1.$str2;把$str1这个字符串再加上$str2这个字符串后再赋值给$str这个字符
串x=$str x=$y;$str=$str x $y;循环$str字符$y次再把结果赋值给
$str这个字符串

二、运算（Arithmetic）运算符

符号范例说明+$a=$x+$y把$x和$y加后再赋值给$a-$a=$x+$y把$x和$y减后再赋值给$a*$a=$x*$y把$x和$y乘后再赋值给$a/$a=$x/$y把$x和$y除后再赋值给$a%$a=$x%$y把$x和$y除后再余数赋值给$a**$a=$x**$y把$x和$y乘次方后再赋值给$a++$x++;++$x把$x加一后再赋值给$x--$x--;--$x把$x减一后再赋值给$x.$a=$x.$y把$x字符串和$y字符串合拼后再赋值给$a

三、数值（Number Values）运算符

符号范例说明>$x>$y如果$x大于$y返回1否则返回0>=$x>=$y如果$x大于等于$y返回1否则返回0<$x<$y如果$x小于$y返回1否则返回0<=$x<=$y如果$x小于等于$y返回1否则返回0==$x==$y如果$x等于$y返回1否则返回0!=$x!=$y如果$x不等于$y返回1否则返回0<=>$x<=>$y如果$x大于$y返回1;如果$x等于$y返回0;
如果$x小于$y则返回-1

四、字符串（String Values）运算符

符号范例说明gt$str1 gt $str2如果$str1大于$str2返回1否则返回0ge$str1 ge $str2如果$str1大于等于$str2返回1否则返回0lt$str1 lt $str2如果$str1小于$str2返回1否则返回0le$str1 le $str2如果$str1小于等于$str2返回1否则返回0eq$str1 eq $str2如果$str1等于$str2返回1否则返回0ne$str1 ne $str2如果$str1不等于$str2返回1否则返回0cmp$str1 cmp $str2如果$str1大于$str2返回1;如果$str1=$str2返回0;
如果$str1小于$str2则返回-1

五、逻辑（Logical）运算符
1.$x && $y(AND)

$x$y结果真(True)真(True)真(True)真(True)假(False)假(False)假(False)真(True)假(False)假(False)假(False)假(False)

1.$x || $y(OR)

$x$y结果真(True)真(True)真(True)真(True)假(False)真(True)假(False)真(True)真(True)假(False)假(False)假(False)

1.! $x(Not)

$x结果真(True)假(False)假(False)真(True)

六、其他运算符

指令：..区域运算符（Range Operator）说明：这个运算符是Perl语言中特别有用运算符且很实用。范例：


@digits=(1..9);#这时@digits=(1,2,3,4,5,6,7,8,9);
@digits=('01'..'05');#这时@digits=(01,02,03,04,05);
@char=('A'..'E');#这时@char=(A,B,C,D,E);
@total=(1..3,'A'..'B');#这时@totalr=(1,2,3'A','B');

　

指令：判断运算式？运算式1：运算式2条件运算符说明：这个运算符的意义和C语言一样，如果判断运算式的值是真的
话，则做运算1的运算，如果判断运算式是假的话，则做运算式
2的运算。范例：


$price=($age>60)?100:200;
如果$age大于60的话，则$price等于100;否则$price等于200。

七、常用的文件数据(File test)运算符

范例说明-r $file如果$file是可读取的话，返回1的值-w $file如果$file是可写入的话，返回1的值-x $file如果$file是可执行的话，返回1的值-e $file如果$file存在的话，返回1的值-o $file如果$file是被执行者所拥有的话，返回1的值-s $file返回$file的文件大小(bytes)-f $file如果$file是正常文件的话，返回1的值-t $file如果$file是文本文件的话，返回1的值-b $file如果$file是binary文件的话，返回1的值-m $file返回文件最后一次更改时间到现在的日期数