新的“每个@array”的行为在标量环境中

Question

Perl 5.14 为我们提供了扩展的each 函数，它可以对数组和哈希进行操作：

在列表上下文中调用时，返回一个 2 元素列表，其中包含哈希下一个元素的键和值，或数组下一个元素的索引和值，以便您可以对其进行迭代。在标量上下文中调用时，仅返回哈希中的键（而不是值）或数组中的索引。

使用列表上下文的示例有效：

perl -E 'say $^V'

v5.14.0

perl -E '@a = (1..10); while (my ($i, $elem) = each @a) {say "\$a[$i] = $elem"}'

$a[0] = 1
$a[1] = 2
$a[2] = 3
$a[3] = 4
$a[4] = 5
$a[5] = 6
$a[6] = 7
$a[7] = 8
$a[8] = 9
$a[9] = 10

但是在标量上下文中，我什么也得不到：

perl -E '@a = (1..10); while (my $i = each @a) {say $i}'

任何人都可以提供任何见解吗？我有一种感觉，当有人指出我的错误时，这将是一个沉重的打击，但也许不是。

编辑：实际上 while 循环与它无关：

perl -E '@a = (1..10); $i = each @array; say $i'

也没有给出任何输出。 s'@array'@a ' 哎呀。

编辑2：

根据 daxim 的评论：

perl -MDevel::Peek -E'@a = (1..10); Dump each @a'

SV = IV(0x161ce58) at 0x161ce68
  REFCNT = 1
  FLAGS = (TEMP,IOK,pIOK)
  IV = 0

但是我不知道这告诉了我什么。

编辑3：

看起来循环退出是因为第一个索引是0，或者是假。我已经提交了一个错误（ http://rt.perl.org/rt3 /Ticket/Display.html?id=90888 ），因为这似乎不是所需的行为。

Answer 1

您需要执行 while (define( my $i = every @array )) { say $i } 否则它将停止在第一个索引 (0) 处，因为它是 false。

Answer 2

【该帖子内容有误。我的测试肯定有错误。由于存在好的评论，我不会删除它。 ]

标量每个 %hash 的工作归功于每个哈希都有一个与其关联的迭代器。我怀疑这样的迭代器没有添加到数组中。

这是一个错误，正如 each 所说：

在标量上下文中调用时，返回仅哈希中的键（而非值）或数组中的索引。

请使用 perlbug 提交报告。