#!/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";