Perl：匿名列表的长度

Question

如何获取匿名列表的长度？

perl -E 'say scalar ("a", "b");' # => b

我希望 scalar 在标量上下文中返回列表 - 它的长度。

为什么它返回第二个（最后一个）元素？

它适用于数组：

perl -E 'my @lst = ("a", "b"); say scalar @lst;' # => 2

Answer 1

你可以使用

my $n = () = f();

适用于您的情况，它是

say scalar( () = ("a", "b") );

或

say 0+( () = ("a", "b") );

---

首先，让我们澄清一个误解。

您似乎相信某些运算符会在不考虑上下文的​​情况下评估某种称为列表的数据结构，并且该列表在强制转换为标量上下文时会返回其长度。

所有这些都是不正确的。

运算符必须在标量上下文中精确计算一个标量，并且 sub 必须在标量上下文中精确返回一个标量。在列表上下文中，运算符可以计算任意数量的标量，而 subs 可以返回任意数量的标量。所以当我们说一个操作符对一个列表求值，当我们说一个子返回一个列表时，我们并不是指某个数据结构。我们只是使用“列表”作为“零个或多个标量”的简写。

由于没有列表数据结构之类的东西，它不能被强制转换为标量。上下文不是强制；上下文是操作员首先检查以确定他们评估的内容。他们从字面上让上下文决定他们的行为和他们的回报。由每个操作员决定他们在标量和列表上下文中返回什么，and there's a lot of variance。

正如你所指出的，

• 标量上下文中的@a 运算符计算结果为单个标量：数组的长度。
• 标量上下文中的逗号运算符计算结果为单个标量：与最后一个操作数的值相同。
• 标量上下文中的 qw 运算符计算结果为单个标量：它通常会返回的最后一个值。

---

关于你的问题。

要确定一个运算符在列表上下文中计算时要计算多少个标量，我们需要在列表上下文中计算该运算符。运算符总是在标量上下文中计算为单个标量，因此您尝试强加标量上下文是没有根据的（除非运算符碰巧计算为它在列表上下文中返回的长度，例如 @ 987654328@，但不适用于许多其他运营商）。

解决办法是用

my $n = () = f();

explanation 很复杂。

Answer 2

一种方式

perl -wE'$len = () = qw(a b c); say $len'   #--> 3

= () = "operator" 是对context 的一个游戏。它在其右侧强制列表上下文并分配列表的长度。请参阅this post 了解列表与标量分配和this page 了解有关这一切的一些想法。

如果这需要在列表上下文中使用，那么 LHS 上下文也可以由scalar 强制，例如

say scalar( () = qw(a b c) );

或者通过其他方式 (0+...)，但 scalar 在这种情况下实际上是合适的，也是最清晰的。

---

在您的诚实尝试中，scalar 将标量上下文强加在其操作数上——或者这里是一个 表达式，因此由 comma operator 评估，从而一个接一个地被丢​​弃，直到最后一个返回。

您会在打开警告的情况下了解这一点，因为它会发出警告

在 -e 第 1 行的 void 上下文中无用地使用常量（“a”）

警告总是可以在单行中启用，带有-w 标志。我建议这样做。

Answer 3

Perl 引用很难。我不会让您阅读prelref，因为它不是任何人都可以阅读并开始使用的。

长话短说，使用此模式获取匿名数组大小：0+@{[ <...your array expression...> ]}

例子：

print 0+@{[ ("a", "b") ]};