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
%= 求模且赋值运算符，求两个操作数的模赋值给左边操作数 ca 相等于 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";
ca;
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=30c = 40 ，运算语句 c+=a
c=30，运算语句c -= ac = 300 ，运算语句 $c = ac = 30 ，运算语句 c/=a
c=0，运算语句c %= aa = 4 ， c=2c = 16 ，运算语句 $c *= $a
