[root@master Webqq]# cat k4.pl $a=3; $b=4; print "\$a is $a\n"; print "\$b is $b\n"; $a .=$b; print "\$a is $a\n"; print "\$b is $b\n"; [root@master Webqq]# perl k4.pl $a is 3 $b is 4 $a is 34 $b is 4
[root@master Webqq]# cat k4.pl $a=3; $b=4; print "\$a is $a\n"; print "\$b is $b\n"; $a .=$b; print "\$a is $a\n"; print "\$b is $b\n"; [root@master Webqq]# perl k4.pl $a is 3 $b is 4 $a is 34 $b is 4