原文: https://beginnersbook.com/2017/02/perl-operators-complete-guide/

运算符是表示动作的字符,例如+是表示加法的算术运算符。

perl 中的运算符分为以下类型:

1)基本算术运算符

2)赋值运算符

3)自增和自减运算符

4)逻辑运算符

5)比较运算符

6)按位运算符

7)引用和引用类运算符

1)基本算术运算符

基本算术运算符是:+, - , *, /, %, **

+ 用于加法:$x + $y

- 用于减法:$x - $y

* 用于乘法:$x * $y

/ 用于划分:$x / $y

%用于模数:$x % $y

注:它返回余数,例如10 % 5将返回 0

**用于指数:$x ** $y

x 到的 y 次幂

  1. #!/usr/local/bin/perl
  2. $x = -4;
  3. $y = 2;
  4. $result = $x + $y;
  5. print '+ Operator 输出: ' . $result . "\n";
  6. $result = $x - $y;
  7. print '- Operator 输出: ' . $result . "\n";
  8. $result = $x * $y;
  9. print '* Operator 输出: ' . $result . "\n";
  10. $result = $x / $y;
  11. print '/ Operator 输出: ' . $result . "\n";
  12. $result = $x % $y;
  13. print '% Operator 输出: ' . $result. "\n";
  14. $result = $x ** $y;
  15. print '** Operator 输出: ' . $result . "\n";

输出:

  1. + Operator 输出: -2
  2. - Operator 输出: -6
  3. * Operator 输出: -8
  4. / Operator 输出: -2
  5. % Operator 输出: 0
  6. ** Operator 输出: 16

2)赋值运算符

perl 中的赋值运算符是:=, +=, -=, *=, /=, %=, **=

  • $x = $y会将变量y的值赋给变量x
  • $x += $y 等于$x = $x + $y
  • $x -= $y等于$x = $x - $y
  • $x *= $y等于$x = $x * $y
  • $x /= $y等于$x = $x / $y
  • $x %= $y等于$x = $x % $y
  • $x **= $y等于$x = $x ** $y

例:

  1. #!/usr/local/bin/perl
  2. $x = 5;
  3. $result = 10;
  4. print "\$x= $x and \$result=$result\n";
  5. $result = $x;
  6. print '= Operator 输出: ' . $result . "\n";
  7. print "\$x= $x and \$result=$result\n";
  8. $result += $x;
  9. print '+= Operator 输出: ' . $result . "\n";
  10. print "\$x= $x and \$result=$result\n";
  11. $result -= $x;
  12. print '-= Operator 输出: ' . $result . "\n";
  13. print "\$x= $x and \$result=$result\n";
  14. $result *= $x;
  15. print '*= Operator 输出: ' . $result . "\n";
  16. print "\$x= $x and \$result=$result\n";
  17. $result /= $x;
  18. print '/= Operator 输出: ' . $result . "\n";
  19. print "\$x= $x and \$result=$result\n";
  20. $result %= $x;
  21. print '%= Operator 输出: ' . $result . "\n";
  22. #assigning different value to $result for this operator
  23. $result =2;
  24. print "\$x= $x and \$result=$result\n";
  25. $result **= $x;
  26. print '**= Operator 输出: ' . $result . "\n";

输出:

  1. $x= 5 and $result=10
  2. = Operator 输出: 5
  3. $x= 5 and $result=5
  4. += Operator 输出: 10
  5. $x= 5 and $result=10
  6. -= Operator 输出: 5
  7. $x= 5 and $result=5
  8. *= Operator 输出: 25
  9. $x= 5 and $result=25
  10. /= Operator 输出: 5
  11. $x= 5 and $result=5
  12. %= Operator 输出: 0
  13. $x= 5 and $result=2
  14. **= Operator 输出: 32

3)自增和自减运算符

++--

$x++相当于$x = $x + 1;

$x--相当于$x = $x - 1;

示例:

  1. #!/usr/local/bin/perl
  2. $x =100;
  3. $y =200;
  4. $x++;
  5. $y--;
  6. print"Value of \$x++ is: $x\n";
  7. print"Value of \$y-- is: $y\n";

输出:

  1. Value of $x++ is: 101
  2. Value of $y-- is: 199

4)逻辑运算符

逻辑运算符与二进制变量一起使用。它们主要用于条件语句和循环以评估条件。

perl 中的逻辑运算符是:&&||!

&&and相同。如果xy都为真,则$x && $y返回true,否则返回false

||or相同。如果xy都为假,则$x || $y将返回false,否则返回true

!not是相同的。!$x将返回x的反面,这意味着如果xfalse则为true,如果xtrue则返回false

示例

  1. #!/usr/local/bin/perl
  2. $x = true;
  3. $y = false;
  4. $result = ($x and $y);
  5. print"\$x and \$y: $result\n";
  6. $result = ($x && $y);
  7. print"\$x && \$y: $result\n";
  8. $result = ($x or $y);
  9. print"\$x or \$y: $result\n";
  10. $result = ($x || $y);
  11. print"\$x || \$y: $result\n";
  12. #point to note is that not operator works
  13. #with 0 and 1 only.
  14. $x=0;
  15. $result = not($x);
  16. print"not\$x: $result\n";
  17. $result = !($x);
  18. print"\!\$x: $result\n";

输出:

  1. $x and $y: false
  2. $x && $y: false
  3. $x or $y: true
  4. $x || $y: true
  5. not$x: 1
  6. !$x: 1

5)比较(关系)运算符

它们包括:==, eq, !=, ne, >, gt, <, lt, >=, ge, <=, le

  • 如果左侧和右侧是相等的,==eq返回true
  • 如果左侧不等于运算符的右侧,则!=ne返回true
  • 如果左侧大于右侧,>gt将返回true
  • 如果左侧小于右侧,<lt返回true
  • 如果左侧大于或等于右侧,>=ge返回true
  • 如果左侧小于或等于右侧,<=le返回true

示例

  1. #!/usr/local/bin/perl
  2. $x = 3;
  3. $y = 6;
  4. if( $x == $y ){
  5. print "\$x and \$y are equal\n";
  6. }else{
  7. print "\$x and \$y are not equal\n";
  8. }
  9. if( $x != $y ){
  10. print "\$x and \$y are not equal\n";
  11. }else{
  12. print "\$x and \$y are equal\n";
  13. }
  14. if( $x > $y ){
  15. print "\$x is greater than \$y\n";
  16. }else{
  17. print "\$x is not greater than \$y\n";
  18. }
  19. if( $x >= $y ){
  20. print "\$x is greater than or equal to \$y\n";
  21. }else{
  22. print "\$x is less than \$y\n";
  23. }
  24. if( $x < $y ){
  25. print "\$x is less than \$y\n";
  26. }else{
  27. print "\$x is not less than \$y\n";
  28. }
  29. if( $x <= $y){
  30. print "\$x is less than or equal to \$y\n";
  31. }else{
  32. print "\$x is greater than \$y\n";
  33. }

输出:

  1. $x and $y are not equal
  2. $x and $y are not equal
  3. $x is not greater than $y
  4. $x is less than $y
  5. $x is less than $y
  6. $x is less than or equal to $y

6)按位运算符

有六个按位运算符:&, |, ^, ~, <<, >>

  1. $x = 11; #00001011
  2. $y = 22; #00010110

按位运算符执行逐位处理。

$x & $y比较xy的相应位,如果两个位相等则生成 1,否则返回 0。在我们的例子中它将返回:2,这是 00000010,因为只有xy的二进制形式倒数第二位是匹配的。

$x | $y比较xy的相应位,如果任一位为 1 则生成 1,否则返回 0。在我们的例子中它将返回 31,即 00011111

$x ^ $y比较xy的相应位,如果它们不相等则生成 1,否则返回 0。在我们的例子中它将返回 29,相当于 00011101

~$x是一个补码运算符,只是将位从 0 更改为 1,1 更改为 0。在我们的示例中,它将返回-12,其签名为 8 位,相当于 11110100

<<是左移位运算符,向左移动位,丢弃最左边的位,并将最右边的位赋值为 0。输出情况输出为 44,相当于 00101100

注意:在下面的示例中,我们在此移位运算符的右侧提供 2,这是位向左移动两个位置的原因。我们可以更改此数字,并且位将按运算符右侧指定的位数移动。同样适用于右侧运算符。

>>是右移位运算符,将位向右移动,丢弃最右位,并将最左边的位指定为 0。在我们的情况下输出为 2,相当于 00000010

示例:

  1. #!/usr/local/bin/perl
  2. use integer;
  3. $x = 11; #00001011
  4. $y = 22; #00010110
  5. $result = $x & $y;
  6. print "\$x & \$y: $result\n";
  7. $result = $x | $y;
  8. print "\$x | \$y: $result\n";
  9. $result = $x ^ $y;
  10. print "\$x ^ \$y: $result\n";
  11. $result = ~$x;
  12. print "~\$x = $result\n";
  13. $result = $x << 2;
  14. print "\$x << 2 = $result\n";
  15. $result = $x >> 2;
  16. print "\$x >> 2 = $result\n";

输出:

  1. $x & $y: 2
  2. $x | $y: 31
  3. $x ^ $y: 29
  4. ~$x = -12
  5. $x << 2 = 44
  6. $x >> 2 = 2

7)引用和引用类操作符

perl 中的运算符有几个引用,如q{}, qq{}, qw{}, m{}, qr{}, s{}{}, tr{}{}, y{}{}。但是经常只使用其中两个:q{}用于单引号,qq{}用于双引号。

示例

q{Welcome to beginnersbook}会返回'Welcome to beginnersbook'

qq{Welcome to beginnersbook}会返回"Welcome to beginnersbook"