我需要提取数组中除最后一个元素之外的所有元素，并将它们存储在标量中以备后用。
起初，我认为使用数组切片可以做到这一点，但似乎无法倒数。
例如:
my $foo = ($bar[0..-2]);
或
my $foo = ($bar[-2..0]);
任何帮助将不胜感激，因为这开始让我发疯，而且我一直无法在其他地方或通过试验找到解决方案。
奥斯卡
最佳答案
my $foo = join ',', @bar[0..$#bar-1];
将(通过逗号)将数组@bar 中除最后一个元素之外的所有元素连接到 foo 中。
问候
红包
关于arrays - perl - 如何提取数组中除最后一个元素之外的所有元素？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/3504350/