perl - come estrai tutti gli elementi di un array tranne l'ultimo?

Question

Ho bisogno di estrarre tutti gli elementi in un array tranne l'ultimo e di memorizzarli in uno scalare per un uso successivo. In un primo momento, ho pensato che sarebbe stato possibile utilizzare le sezioni dell'array, ma sembra che non si possa contare all'indietro. Per esempio:

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

o

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

Qualsiasi aiuto sarebbe molto apprezzato come questo sta cominciando a farmi impazzire, e sono stato in grado di trovare una soluzione altrove o attraverso la sperimentazione.
Oskar

Answer 1

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

concatenerà (da virgola) tutti gli elementi della matrice @pluto tranne l'ultimo in foo.

saluti

RBO

Answer 2

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

Se si desidera creare una testa-scratcher:

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

Answer 3

Questo memorizzerà tutti gli elementi dell'array, ad eccezione dell'ultima, in uno scalare. Ogni elemento dell'array sarà separato da un singolo spazio.

use strict; 
use warnings; 

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

__END__ 

1 2 3 4 5 

Non vuoi davvero memorizzare gli elementi in un altro array? Se li si archivia in uno scalare, può essere problematico recuperarli. Nel mio esempio precedente, se qualche elemento dell'array aveva già un singolo spazio, non sarebbe possibile ricostruire adeguatamente la matrice dallo scalare.

Answer 4

my @foo = @bar; 
pop @foo; 

o

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

o se è ok per cambiare @pluto, basta

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