Perl 函数的参数传递149

在 Perl 中，函数的参数可以通过值传递或引用传递两种方式传递。根据不同的传递方式，函数对参数的修改会产生不同的影响。

值传递

值传递是默认的参数传递方式。在这种方式下，将参数值的副本传递给函数。因此，函数对参数的修改不会影响调用函数中的原始参数值。
sub my_function {
my $x = shift;
$x++;
}
my $y = 10;
my_function($y);
print $y; # 仍然是 10

在这个示例中，my_function 的形参 $x 是 $y 的一个副本。当 $x 在函数内部递增时，不会影响调用函数中的 $y。

引用传递

引用传递通过传递参数的引用而不是其值来传递参数。这意味着函数可以修改调用函数中的原始参数值。

要在 Perl 中进行引用传递，需要在参数前面加上一个反斜杠 \。
sub my_function {
my $x = shift;
$$x++;
}
my $y = 10;
my_function(\$y);
print $y; # 现在是 11

在这个示例中，my_function 的形参 $x 是 $y 的引用。当 $$x 在函数内部递增时，会修改调用函数中的 $y 的值。

何时使用引用传递

引用传递在以下情况下很有用：
希望函数修改调用函数中的原始参数值。
需要避免创建参数的大副本，尤其是在参数是大型数据结构时。

示例

以下是使用引用传递的更多示例：
# 修改数组
my @array = (1, 2, 3);
sub modify_array {
my $arr_ref = shift;
$$arr_ref[0] = 10;
}
modify_array(\@array);
print "@array"; # 输出：10 2 3
# 修改散列表
my %hash = (name => 'John', age => 30);
sub modify_hash {
my $hash_ref = shift;
$$hash_ref{'age'}++;
}
modify_hash(\%hash);
print $hash{'age'}; # 输出：31