perl - 마지막 배열을 제외한 배열의 모든 요소를 ​​어떻게 추출합니까?

Question

배열의 마지막 요소를 제외한 모든 요소를 ​​추출하고 나중에 사용하기 위해 스칼라에 저장해야합니다. 처음에는 배열 슬라이스를 사용하여이 작업을 수행 할 수 있다고 생각했지만 역진으로 계산할 수없는 것처럼 보입니다. 예를 들어 :이 미친 날 운전을 시작으로

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

또는

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

어떤 도움

이 크게 감상 할 수있다, 나는 다른 곳에서 또는 실험에 의해 해결책을 찾을 수 없었습니다.
오스카

Answer 1

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

은 (쉼표) 연결할 것 foo.

안부이 스칼라로 마지막을 제외한 모든 배열 요소를 저장할

Answer 2

@foo = @bar[0 .. $#foo - 1]; 

당신이 머리 아마추어 만들려면 : 마지막 하나를 제외한 배열의 모든 요소 @bar에

my @x = (1, 2, 3); 
print "@x[-@x .. -2]"; 

Answer 3

RBO. 각 배열 요소는 단일 공백으로 구분됩니다.

use strict; 
use warnings; 

my @nums = 1 .. 6; 
my $str = "@nums[0 .. $#nums - 1]"; 
print $str; 

__END__ 

1 2 3 4 5 

요소를 다른 배열에 실제로 저장 하시겠습니까? 스칼라에 저장하면 문제가 될 수 있습니다. 위의 예에서 배열의 요소에 이미 하나의 공백이있는 경우 스칼라에서 배열을 올바르게 재구성 할 수 없습니다.

Answer 4

my @foo = @bar; 
pop @foo; 

또는

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

하거나 @bar 변경 할 수있는 상태인지

, 단지

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