perl - ($ test)=(@test)之间有什么区别？和$ test = @test;在Perl？

Question

($test) = (@test);
$test = @test;

用一个括号括住变量，它访问数组的第一个元素。我找不到有关数组括号的信息。

Answer 1

($test) = (@test); 

这会将 @test内的值分配给仅包含 $test的变量列表。因此 $test将包含 @test的第一个元素。这就是列表上下文。您还可以省略 @test周围的括号。

my @test = ('a', 'b');
my ($test) = @test;    # 'a'

这也非常常用于将函数的参数分配给变量。下面将为函数分配前三个参数，并忽略后面的任何其他参数。

sub foo {
    my ($self, $foo, $bar) = @_;

    # ...
}

您也可以跳过中间的元素。这也是有效的。此处不会分配 bar值。

my @foo = qw(foo bar baz);
(my $foo, undef, my $baz) = @foo;

$test = @test;

这迫使 @test进入标量上下文。标量上下文中的数组返回元素的数量，因此 $test将成为整数。

my @test = ('a', 'b');
my $test = @test;      # 2

您可以在 perldata中阅读有关上下文的更多信息。