关于 PHP 的 here 和 here 都被问过这个问题，我对 Perl 也有同样的问题。给定一个返回列表的函数，有什么方法（或最好的方法）可以在不使用临时变量的情况下立即索引到它？
例如：
my $comma_separated = "a,b,c";
my $a = split (/,/, $comma_separated)[0]; #not valid syntax
我明白为什么第二行中的语法无效，所以我想知道是否有一种方法可以在不首先将返回值分配给列表并从中索引的情况下获得相同的效果。
【问题讨论】：
标签： perl
只需使用括号来定义您的列表，然后将其索引以提取您想要的元素：
my $a = (split /,/, $comma_separated)[0];
【讨论】：
my $x = (split /,/ => $str)[0]
split( ... )，括号仅处理 call -> 您希望使用这些参数调用 split。在上面加上[0] 没有什么意义。然而( split ... ) 解决了 returned 的值，这正是您想要索引的内容。
print (split /,/, $comma_separated)[0];，我得到：syntax error at test.pl line 3, near ")["
print ((...)[0])），也可以在括号前放置一个加号以使其成为打印的单个参数（即print +(...)）。
就像你可以这样做：
($a, $b, $c) = @array;
你可以这样做：
my($a) = split /,/, $comma_separated;
LHS（左侧）上的my $a 被视为标量上下文。 my($a) 是列表上下文。它是一个单元素列表，因此它只获取从 split 返回的第一个元素。
它具有自动限制拆分的额外好处，因此如果$comma_separated 很大，则不会浪费工作。
【讨论】：