3、Perl 数据引用与匿名存储全解析

Perl 数据引用与匿名存储全解析

1. 使用引用

引用对于创建复杂的数据结构至关重要，下面将介绍 Perl 支持间接引用和内存管理的其他优点。

1.1 向子例程传递数组和哈希

当向子例程传递多个数组或哈希时，Perl 会将它们合并到子例程内部可用的 @_ 数组中。避免这种合并的唯一方法是传递输入数组或哈希的引用。以下是一个示例，将一个数组的元素添加到另一个数组的对应元素中：

@array1 = (1, 2, 3); @array2 = (4, 5, 6, 7);
AddArrays (\@array1, \@array2); # Passing the arrays by reference.
print "@array1 \n";
sub AddArrays 
{
    my ($rarray1, $rarray2) = @_;
    $len2 = @$rarray2;  # Length of array2
    for ($i = 0 ; $i  < $len2 ;  $i++) {
        $rarray1->[$i] += $rarray2->[$i];   
    }
}

在这个例子中，两个数组引用被传递给 AddArrays 子例程，然后该子例程对这两个引用进行解引用。

另一个示例是 GetNextLine 函数，它通过引用返回一行数据以避免复制：