perl - 在 Perl 中强制使用列表上下文

Question

我试图理解 Perl 上下文，但被一块石头绊倒了；

给定代码；

#!/usr/bin/perl

my $b = (33,22,11);
print "$b\n";

my $b = () = (33,22,11);
print "$b\n";

my @b = (33,22,11);
print "@b\n";

my @b = () = (33,22,11);
print "@b\n";

结果是(最后一行为空)；

 11  

 3 

 33 22 11

 <>

由于第二次打印返回了列表的长度，我假设某处生成了一个数组，因为标量上下文中的数组计算为其长度。但是第 4 次打印似乎否定了这个假设。我期待看到 '33 22 11'打印但什么也没有。这里发生了什么事？

Answer 1

你很困惑，因为你认为=是单个运算符，但它可以产生两个不同的运算符:列表赋值运算符或标量赋值运算符。 Mini-Tutorial: Scalar vs List Assignment Operator解释了差异。

my $b = (33,22,11);
------------------            Scalar assign in void context.
        ----------            List literal in scalar context. Returns last.

my @b = (33,22,11);
------------------            List assign in void context.
        ----------            List literal in list context. Returns all.

my $b = ( () = (33,22,11) );
---------------------------   Scalar assign in void context.
        -------------------   List assign in scalar context. Returns count of RHS
               ----------     List literal in list context. Returns all.

my @b = ( () = (33,22,11) );
---------------------------   List assign in void context.
        -------------------   List assign in list context. Returns LHS.
               ----------     List literal in list context. Returns all.

至于你的标题，强制列表上下文是不可能的。如果函数在需要标量时返回一个列表，则会导致堆栈中出现额外的值，从而导致运算符获取错误的参数。

但是，您可以执行以下操作:

( EXPR )[0]

或者

( EXPR )[-1]

EXPR将在列表上下文中调用，但整体将仅返回返回列表的一个元素。