Perl 中的标量与列表上下文

Question

我在 O'Reilly 的一本书中发现了一个有点奇怪的例子：

@backwards = reverse qw/ yabba dabba doo /;
print "list context: @backwards\n";
$backward = reverse qw/ yabba dabba doo /;
print "scalar1 context: $backward\n";
$notbackward = qw/ yabba dabba doo /;
print "scalar2 context: $notbackward\n";
print "print context: ",reverse qw/ yabba dabba doo /;
print "\n";

输出是：

list context: doo dabba yabba
scalar1 context: oodabbadabbay
scalar2 context: doo
print context: doodabbayabba

我不明白的是 scalar1 上下文：

这本书说“反转某物”给出了一个列表上下文，所以我猜测 qw/ yabba dabba doo / 被视为一个列表，而 反向 qw/ yabba dabba doo / 被视为 ('doo', 'dabba', 'yabba')。

因此出现了 $backward = Something ，这意味着某些东西是标量，所以我期待结果“doo dabba yabba”，但它是不同的：“oodabbadabbay”。

我想，原因是因为不能直接将列表设置为标量。所以我做了 scalar2 测试：仅打印列表中的最新项目。为什么？为什么不在 scalar1 测试中呢？

标量测试输出如何工作？

Answer 1

对于该行：

$backward = reverse qw/ yabba dabba doo /;

您在此处从反向请求标量。反向的 perldoc 说：

在标量上下文中，连接
LIST 的元素并返回一个字符串
中所有字符的值
相反的顺序。

所以它返回每个字母的反转。

为了
$notbackward = qw/ yabba dabba doo /;
qw // 的 perldoc 说：

计算单词列表
从 STRING 中提取，使用
嵌入空格作为单词
分隔符。可以理解为
大致相当于：

 split(' ', q/STRING/);

区别在于它生成一个真实的列表
编译时，并且在标量上下文中
返回列表中的最后一个元素。

因此请求标量仅返回列表中的最后一项。

Answer 2

为了简化其他答案，reverse 实际上做了两个单独的事情，列表反转和字符串反转。

事实证明，这非常令人困惑，以至于 perl6 将它们分成不同名称的函数。

Answer 3

首先，qw/ yabba dabba doo / 只是 ('yabba', 'dabba', 'doo') 的语法糖。他们的意思是一样的。

reverse 函数采用一个列表。在列表上下文中，它反转列表。在标量上下文中，它执行 join('', @list) 然后反转该字符串中的字符并返回它。

请记住，这

$backward = reverse qw/ yabba dabba doo /;
$notbackward = qw/ yabba dabba doo /;

意味着

$backward = reverse ('yabba', 'dabba', 'doo');
$notbackward = ('yabba', 'dabba', 'doo');

reverse 函数提供列表上下文，而 $notbackward = 为我们提供标量上下文。这意味着逗号运算符位于第一行的列表上下文中，第二行的标量上下文中。在列表上下文中，逗号运算符 创建一个列表。在标量上下文中，它计算两个操作数并返回右侧的操作数。这意味着标量上下文中 ('yabba', 'dabba', 'doo') 的值为 'doo'，这就是分配给 $ 的值不落后。

Answer 4

所有 Perl 函数，包括您定义的任何子，可以检测是否它们在“标量”或“列表”上下文中被调用，并且有许多函数可以根据此上下文更改其行为。

除了“按我的意思做”之外，关于函数何时以及如何以不同方式处理两个上下文（这个 perlmonks 上的整个线程对这些问题进行了很好的讨论），因此您需要依赖每个函数的文档来猜测函数在特定上下文中将执行的操作。

具体来说，对于您的四个示例，

1. @backwards = reverse qw/ yabba dabba doo /
2. $backward = reverse qw/ yabba dabba doo /
3. $notbackward = qw/ yabba dabba doo /;
4. print ..., reverse qw/ yabba dabba doo /;

行为是

1. reverse function, list context:     returns list of the elements in reverse order

2. reverse function, scalar context:   concatenate argument list to a string,
                                       return reverse of that string

3. list assignment to scalar:          returns last element in list (*)

4. also reverse function, list context    same as #1

(*) - 注意列表分配给标量不同于数组分配给标量 - 这是列表之间最重要的区别之一> 和数组：

@a = ("x", "y", "z");  $n = @a;   # array assignment,  $n is array size, or "3"
$n = ("x", "y", "z");             # list assignment,   $n is last element, or "z"