Perl 教程 之 Perl 运算符 4

Perl 运算符

赋值运算符

表格实例中我们设置变量 $a 为 10， $b 为 20。

运算符 描述 实例
= 简单的赋值运算符，把右边操作数的值赋给左边操作数 $c = $a + $b 将把 $a + $b 的值赋给 $c
+= 加且赋值运算符，把右边操作数加上左边操作数的结果赋值给左边操作数 $c += $a 相等于 $c = $c + $a
-= 减且赋值运算符，把左边操作数减去右边操作数的结果赋值给左边操作数 $c -= $a 相等于 $c = $c - $a
= 乘且赋值运算符，把右边操作数乘以左边操作数的结果赋值给左边操作数 $c = $a 相等于 $c = $c $a
/= 除且赋值运算符，把左边操作数除以右边操作数的结果赋值给左边操作数 $c /= $a 相等于 $c = $c / $a
%= 求模且赋值运算符，求两个操作数的模赋值给左边操作数 $c %= $a 相等于 $c = $c % a
= 乘幂且赋值运算符，求两个操作数的乘幂赋值给左边操作数 $c = $a 相等于 $c = $c * $a
实例

!/usr/bin/perl

$a = 10;
$b = 20;

print "\$a = $a ，\$b = $b\n";

$c = $a + $b;
print "赋值后 \$c = $c\n";

$c += $a;
print "\$c = $c ，运算语句 \$c += \$a\n";

$c -= $a;
print "\$c = $c ，运算语句 \$c -= \$a\n";

$c = $a;
print "\$c = $c ，运算语句 \$c = \$a\n";

$c /= $a;
print "\$c = $c ，运算语句 \$c /= \$a\n";

$c %= $a;
print "\$c = $c ，运算语句 \$c %= \$a\n";

$c = 2;
$a = 4;
print "\$a = $a ， \$c = $c\n";
$c = $a;
print "\$c = $c ，运算语句 \$c = \$a\n";

以上程序执行输出结果为：

$a = 10 ，$b = 20
赋值后 $c = 30
$c = 40 ，运算语句 $c += $a
$c = 30 ，运算语句 $c -= $a
$c = 300 ，运算语句 $c = $a
$c = 30 ，运算语句 $c /= $a
$c = 0 ，运算语句 $c %= $a
$a = 4 ， $c = 2
$c = 16 ，运算语句 $c *= $a