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

Question

好的，我了解 perl 哈希切片和 Perl 中的 the "x" operator，但是有人可以解释一下 here 中的以下代码示例（稍微简化）吗？

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

调用子示例：

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

这句话让我很震惊：

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

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

%哈希：

'one' => undef, '二' => undef, '三' => undef

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

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

Answer 1

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

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

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

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

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

散列切片。hash slice 语法提供了一种同时访问多个散列项的方法。哈希切片可以检索哈希值，也可以分配给它。在本例中，我们正在分配一个哈希切片。

# 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 逗号运算符，也不是内置函数，它们返回他们想要返回的任何内容。）

虽然我目前无法找到有关它的更多信息，但复制运算符似乎在标量上下文中评估其第二个参数，从而导致数组评估为其长度。