我读过 perl 在执行子程序时使用引用调用。我编写了一段简单的代码来检查这个属性,但它的行为就像 perl 是按值调用的:
$x=50;
$y=70;
sub interchange {
($x1, $y1) = @_;
$z1 = $x1;
$x1 = $y1;
$y1 = $z1;
print "x1:$x1 y1:$y1\n";
}
&interchange ($x, $y);
print "x:$x y:$y\n";
这会产生以下输出:
$ perl example.pl
x1:70 y1:50
x:50 y:70
如果以引用调用的方式处理参数,x 不应该等于 x1 并且 y 不应该等于 y1 吗?