perl - 除了最后一个之外,你如何提取数组的所有元素？

Question

我需要提取除最后一个数组之外的数组中的所有元素,并将它们存储在标量中供以后使用.起初,我认为这可以使用数组切片,但看起来你不能倒数.例如:

my $foo = ($bar[0..-2]);  

要么

my $foo = ($bar[-2..0]);  

任何帮助将不胜感激,因为这开始让我疯了,我一直无法在其他地方或通过实验找到解决方案.
奥斯卡

Answer 1

my $foo = join ',', @bar[0..$#bar-1];

将(从逗号)连接数组@bar的所有元素,除了最后一个元素到foo.

问候

RBO

Answer 2

my @foo = @bar;
pop @foo;

要么

my @foo = @bar[ -@bar .. -2 ];

或者如果可以改变@bar,那就是

my @foo = splice( @bar, 0, -1 );