Perl linguaggio per ottenere un numero massimo di elementi di un array

Question

ho voluto recidere tutti, ma i primi cinque elementi di un array, così ho stupidamente fatto:

@foo = @foo[ 0 .. 4 ]; 

e vivamente apprezzato la mia intelligenza. Ma quello si è rotto una volta che @foo è finito con solo tre elementi, perché poi ho finito con due undef s alla fine, invece di un array di tre elementi. Così l'ho cambiato in:

@foo = @foo > 5 ? @foo[ 0 .. 4 ] : @foo; 

Questo funziona ma è un pò brutto. C'è un modo migliore per dire "dammi tutto fino ai primi cinque elementi dell'array?"

Answer 1

È possibile impostare l'ultimo indice di un array di accorciare o allungare esso. Come il tuo codice, dovrai verificarlo per assicurarti di non creare elementi non definiti.

$#foo = 4 if $#foo > 4; 

Answer 2

Se non si cura di mutazioni (impliciti nei LHS autoreferenziali @foo = qualcosa di riferimento @foo) utilizzare i due argomenti splice(), vedere perldoc -f splice per maggiori informazioni.

splice ARRAY, OFFSET

rimuove gli elementi specificati da offset _{^{e LENGTH da una matrice, e li sostituisce con gli elementi di LISTA eventuali.}} In contesto elenco, restituisce gli elementi rimossi dall'array. In contesto scalare, restituisce l'ultimo elemento rimosso, o "undef" se non vengono rimossi elementi. L'array cresce o si restringe se necessario. Se OFFSET è negativo, inizia così lontano dalla fine dell'array. Se LENGTH viene omesso, rimuove tutto da OFFSET in poi. _{^{Se LENGTH è negativo, rimuove gli elementi da OFFSET in avanti eccetto per gli elementi -LENGTH alla fine dell'array.}} Se entrambi OFFSET e LENGTH vengono omessi, rimuove tutto. Se OFFSET è oltre la fine dell'array, perl emette un avviso e giunge alla fine dell'array.

Poi guarda l'effetto:

@_ = 1..10; 
splice @_, 5; 
say for @_; 


@_ = 1..3; 
splice @_, 5; 
say for @_; 

Se stai usando warnings, e spero che si dovrà verificare la lunghezza (come nel suggerimento di ascia) o disattivare l'avviso rumoroso (splice() compensato oltre la fine dell'array):

{ 
    no warnings 'misc'; 
    splice @_, 5; 
} 

Answer 3

questo non è che aggraziata, ma si può esprimere in questo modo:

@foo[ 0..($#foo > 4 ? 4 : $#foo) ]; 

Una funzione generalizzata min potrebbe sembrare migliore.

use List::Util qw<min>;  
@foo[ 0..min($#foo, 4) ]; 

Ma se si desidera solo per sbarazzarsi di tutto il resto, allora non vi resta che splice fuori il resto:

splice(@foo, 5) if 5 < @foo; 

Answer 4

Ancora un altro modo:

@foo = splice(@foo, 0, 5); 

A differenza di altro suggerimento per il cambio, questo non fa scattare un avvertimento; il 5 significa esplicitamente "fino a 5".