Perl 杂项运算符示例

Perl 语言支持以下各种杂项运算符。假设变量 a 持有 10，变量 b 持有 20，则 -

序号	运算符和描述
1	. 二元运算符点 (.) 连接两个字符串。示例 - 如果 $a = "abc"，$b = "def"，则 $a.$b 将给出 "abcdef"
2	x 重复运算符 x 返回一个字符串，该字符串由左操作数重复右操作数指定的次数组成。示例 - ('-' x 3) 将给出 ---。
3	.. 范围运算符 .. 返回一个值列表，从左值到右值（每次递增一个）。示例 - (2..5) 将给出 (2, 3, 4, 5)
4	++ 自动递增运算符将整数值增加 1。示例 - $a++ 将给出 11
5	-- 自动递减运算符将整数值减少 1。示例 - $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 对象和类时，我们将解释 --> 运算符。

perl_operators.htm

打印页面

序号	运算符和描述
1	. 二元运算符点 (.) 连接两个字符串。示例 - 如果 $a = "abc"，$b = "def"，则 $a.$b 将给出 "abcdef"
2	x 重复运算符 x 返回一个字符串，该字符串由左操作数重复右操作数指定的次数组成。示例 - ('-' x 3) 将给出 ---。
3	.. 范围运算符 .. 返回一个值列表，从左值到右值（每次递增一个）。示例 - (2..5) 将给出 (2, 3, 4, 5)
4	++ 自动递增运算符将整数值增加 1。示例 - $a++ 将给出 11
5	-- 自动递减运算符将整数值减少 1。示例 - $a-- 将给出 9
6	-> 箭头运算符主要用于从对象或类名取消引用方法或变量。示例 - $obj->$a 是从对象 $obj 访问变量 $a 的示例。