perl - 忽略函数输出中列表的一部分。调用 Perl

Question

我只想捕获 Perl 中函数输出的列表的一部分。

我以为只有这些线可以做到这一点，但他们没有。

例如捕获列表的最后一个元素：

(, $my_var)  = split(/_/,$sample_string); 

例如捕获列表的第二个元素：

(, $my_var, , ,)  = split(/_/,$sample_string);

这在 Perl 中可能吗？

Answer 1

另一种解决方案：将不需要的元素分配给undef：

(undef, $my_var)  = split(/_/,$sample_string); 

Answer 2

返回数组的第二个元素：

my $second_element = (split(/_/,$sample_string))[1];

Answer 3

当你只需要找到两个时，为什么要找到所有的下划线？

my ($last_element)   = $sample_string =~ /([^_]*)\z/;
my ($second_element) = $sample_string =~ /_([^_]*)_/;

更一般地说，列表切片可以：

my $last_element   = ( split(/_/, $sample_string) )[-1];
my $second_element = ( split(/_/, $sample_string) )[1];
my @some           = ( split(/_/, $sample_string) )[2,3];

但最接近您要求的是占位符：

my (undef, $second_element) = split(/_/, $sample_string);