perl - 直接索引到Perl中返回的数组

Question

这个问题已经被问及有关PHP的here和here的问题，对于Perl我也有同样的问题。给定一个返回列表的函数，有没有办法（或最好的方法）立即索引到该列表而不使用临时变量？

例如：

my $comma_separated = "a,b,c";
my $a = split (/,/, $comma_separated)[0]; #not valid syntax

我知道为什么第二行中的语法无效，所以我想知道是否有一种方法可以在不首先将返回值分配给列表并从中进行索引的情况下获得相同的效果。

Answer 1

只需使用括号来定义您的列表，然后对其进行索引以提取所需的元素：

my $a = (split /,/, $comma_separated)[0];