Perl 中 @_ 数组的作用是什么？

推荐答案

在 Perl 中，@_ 数组用于在子程序中接收传递给该子程序的参数列表。它是一个特殊的数组变量，包含了传递给子程序的所有参数。

本题详细解读

1. @_ 数组的基本用法

当你在 Perl 中定义一个子程序时，传递给该子程序的所有参数都会被存储在 @_ 数组中。你可以通过访问 @_ 数组来获取这些参数。

sub example_sub {
    my ($arg1, $arg2) = @_;
    print "First argument: $arg1\n";
    print "Second argument: $arg2\n";
}

example_sub("Hello", "World");

在这个例子中，example_sub 子程序接收两个参数，"Hello" 和 "World"。这些参数被存储在 @_ 数组中，然后通过 my ($arg1, $arg2) = @_; 语句将它们分别赋值给 $arg1 和 $arg2。

2. @_ 数组的特殊性

@_ 数组是 Perl 中的一个特殊变量，它只在子程序内部有效。它包含了传递给子程序的所有参数，并且这些参数是按顺序存储的。

// www.javascriptcn.com code example
sub sum {
    my $total = 0;
    foreach my $num (@_) {
        $total += $num;
    }
    return $total;
}

my $result = sum(1, 2, 3, 4);
print "Sum: $result\n";

在这个例子中，sum 子程序接收任意数量的参数，并将它们相加。@_ 数组包含了所有传递给 sum 的参数，foreach 循环遍历 @_ 数组中的每个元素，并将它们累加到 $total 中。

3. @_ 数组的引用

你也可以直接操作 @_ 数组，而不需要将其元素赋值给其他变量。这在处理不定数量的参数时非常有用。

sub print_args {
    foreach my $arg (@_) {
        print "$arg\n";
    }
}

print_args("One", "Two", "Three");

在这个例子中，print_args 子程序直接遍历 @_ 数组，并打印出每个参数。

4. @_ 数组的修改

需要注意的是，@_ 数组中的元素是传递给子程序的参数的别名。因此，如果你修改了 @_ 数组中的元素，原始参数的值也会被修改。

sub modify_args {
    $_[0] = "Modified";
}

my $str = "Original";
modify_args($str);
print "$str\n";  # 输出 "Modified"

在这个例子中，modify_args 子程序修改了 @_ 数组中的第一个元素，这导致传递给子程序的原始变量 $str 的值也被修改。