Perl子程序中两个数组参数传递方法

在Perl子程序中，可以通过以下两种方法将数组作为参数传递：

1. 传递数组引用

通过传递数组的引用，可以避免在子程序中创建数组的副本，从而提高效率。示例如下：

sub my_subroutine {
    my ($array_ref1, $array_ref2) = @_;
    # 使用$array_ref1和$array_ref2
}

my @array1 = (1, 2, 3);
my @array2 = (4, 5, 6);
my_subroutine(\@array1, \@array2);

在这个例子中，`\@array1`和`\@array2`是数组`@array1`和`@array2`的引用。在子程序中，可以通过`$array_ref1`和`$array_ref2`来访问这两个数组。

2. 传递数组副本

在某些情况下，需要在子程序中修改原始数组的副本，而不是修改原始数组本身。示例如下：

sub my_subroutine {
    my (@array1, @array2) = @_;
    # 使用@array1和@array2
}

my @array1 = (1, 2, 3);
my @array2 = (4, 5, 6);
my_subroutine(@array1, @array2);

在这个例子中，`@array1`和`@array2`是原始的数组，而在子程序中，通过`my (@array1, @array2) = @_;`将这两个数组的副本传递给子程序。在子程序中，可以通过`@array1`和`@array2`来访问这两个数组的副本。任何对这两个数组的修改都不会影响原始数组。