Perl 哈希切片、复制 x 运算符和子参数

Question

好的，我了解 Perl 哈希切片和 “x”运算符 在 Perl 中，但有人可以解释 这里（稍微简化）？

sub test{
    my %hash;
    @hash{@_} = (undef) x @_;
}

对 sub 的示例调用：

test('one', 'two', 'three');

这一行让我感到困惑：

@hash{@_} = (undef) x @_;

它正在创建一个哈希，其中键是 sub 的参数并初始化为 undef，因此：

%hash:

'one' =>未定义， '二' =>未定义， '三' => undef

x 运算符的右值应该是一个数字； @_ 是如何解释为子参数数组的长度的？我希望你至少必须这样做：

@hash{@_} = (undef) x scalar @_;

Answer 1

要弄清楚这段代码，您需要了解三件事：

重复运算符。x运算符是重复运算符。在列表上下文中，如果运算符的左侧参数括在括号中，它将重复列表中的项目：

my @x = ('foo') x 3;  # ('foo', 'foo', 'foo')

标量上下文中的数组。当在标量上下文中使用数组时，它将返回其大小。 x 运算符将标量上下文强加在其右侧参数上。

my @y = (7,8,9);
my $n = 10 * @y; # $n is 30

哈希切片。哈希切片语法提供了一种方法一次访问多个哈希项。哈希片可以检索哈希值，也可以对其进行分配。在当前的情况下，我们分配给一个哈希片。

# Right side creates a list of repeated undef values -- the size of @_.
# We assign that list to a set of hash keys -- also provided by @_.
@hash{@_} = (undef) x @_;

做同样事情的不太晦涩的方法：

@hash{@_} = ();
$hash{$_} = undef for @_;

Answer 2

在标量上下文中，数组计算其长度。来自 perldoc perldata ：

如果在标量上下文中计算数组，它将返回数组的长度。 （请注意，列表不是这样，它返回最后一个值，如 C 逗号运算符；内置函数也不是这样，它返回它们想要返回的任何内容。）

虽然我目前找不到更多关于它的信息，但似乎复制运算符在标量上下文中计算其第二个参数，导致数组计算其长度。