Perl lenguaje para conseguir un número máximo de elementos de una matriz

Question

quería cortar todos menos los cinco primeros elementos de una matriz, por lo que hizo estúpidamente:

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

y de corazón elogiado mi propia inteligencia. Pero eso se rompió una vez que @foo terminó con solo tres elementos, porque luego terminé con dos undef s en el extremo, en lugar de una matriz de tres elementos. Así que lo cambié a:

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

Esto funciona, pero es un poco feo. ¿Hay una mejor expresión idiomática para decir "dame todo hasta los primeros cinco elementos de la matriz"?

Answer 1

puede establecer el último índice de una matriz para acortar o alargar. Al igual que su código, deberá verificar para asegurarse de que no está creando elementos undef.

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

Answer 2

Si no se preocupan por mutaciones (implícito en la izda autorreferenciales @foo = algo referencia @foo) utiliza los dos argumento splice(), ver perldoc -f splice para obtener más información.

empalme ARRAY, OFFSET

Elimina los elementos designados por el desplazamiento _{^{y la longitud de una matriz, y los reemplaza con los elementos de la lista, si los hubiere.}} En el contexto de la lista, devuelve los elementos eliminados de la matriz. En contexto escalar, devuelve el último elemento eliminado, o "undef" si no se eliminan elementos. La matriz crece o se reduce según sea necesario. Si OFFSET es negativo, comienza tan lejos del final de la matriz. Si se omite LONGITUD, se elimina todo desde OFFSET en adelante. _{^{Si LENGTH es negativo, quita los elementos de OFFSET en adelante a excepción de los elementos -LENGTH al final de la matriz.}} Si se omiten tanto OFFSET como LENGTH, se elimina todo. Si OFFSET está más allá del final de la matriz, perl emite una advertencia y empalma al final de la matriz.

A continuación, ver el efecto:

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


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

Si está utilizando warnings, y espero que tendrá que comprobar si la longitud (como en la sugerencia de Axeman) o desactivar la alarma ruidosa (splice() de compensación al final del extremo de la matriz):

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

Answer 3

esto no es tan elegante, pero se puede expresar así:

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

Una función generalizada de min podría verse mejor.

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

Pero si sólo quiere deshacerse de todo lo demás a continuación, sólo tiene que splice fuera el resto:

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

Answer 4

embargo, otra forma:

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

A diferencia de la otra sugerencia para empalme, esto no desencadena una advertencia; el 5 explícitamente significa "hasta 5".