Perl 杂项运算符示例
Perl 语言支持以下杂项运算符。 假设变量 a 保持 10 并且变量 b 保持 20 然后 −
| 序号 | 运算符 & 描述 |
|---|---|
| 1 | . 二元运算符点 (.) 连接两个字符串。 示例 − If $a = "abc", $b = "def" then $a.$b 将给出 "abcdef" |
| 2 | x 重复运算符 x 返回由左操作数重复右操作数指定的次数组成的字符串。 示例 − ('-' x 3) 将给出 ---. |
| 3 | .. 范围运算符 .. 返回从左值到右值计数（按个数递增）的值列表 示例 − (2..5) 将给出 (2, 3, 4, 5) |
| 4 | ++ 自动增量运算符将整数值加一 示例 − $a++ 将给出 11 |
| 5 | -- 自动减量运算符将整数值减一 示例 − $a-- 将给出 9 |
| 6 | -> 箭头运算符主要用于从对象或类名中取消引用方法或变量 示例 − $obj->$a 是从对象 $obj 访问变量 $a 的示例。 |
示例
试试下面的例子来了解 Perl 中所有可用的杂项运算符。 将以下 Perl 程序复制并粘贴到 test.pl 文件中并执行该程序。
#!/usr/local/bin/perl $a = "abc"; $b = "def"; print "Value of \$a = $a and value of \$b = $b\n"; $c = $a . $b; print "Value of \$a . \$b = $c\n"; $c = "-" x 3; print "Value of \"-\" x 3 = $c\n"; @c = (2..5); print "Value of (2..5) = @c\n"; $a = 10; $b = 15; print "Value of \$a = $a and value of \$b = $b\n"; $a++; $c = $a ; print "Value of \$a after \$a++ = $c\n"; $b--; $c = $b ; print "Value of \$b after \$b-- = $c\n";
当上面的代码被执行时，它会产生下面的结果 −
Value of $a = abc and value of $b = def Value of $a . $b = abcdef Value of "-" x 3 = --- Value of (2..5) = 2 3 4 5 Value of $a = 10 and value of $b = 15 Value of $a after $a++ = 11 Value of $b after $b-- = 14
我们将在讨论 Perl 对象和类时解释 --> 运算符。
