¿Qué hace shift() en Perl?

Question

¿Qué podría significar la siguiente línea?

my $x = shift; 

Answer 1

Esto es por lo general un modismo para: $ x es una variable local asignado al primer parámetro pasado a la subrutina, aunque.

my ($x) = @_; 

es probablemente más claro (y no modifica la lista de argumentos).

Answer 2

La función shift elimina el primer elemento de una matriz y lo devuelve. La matriz se acorta en un elemento.

La matriz predeterminada (si no se proporciona uno como parámetro) es @_ si está en una función, o @ARGV si se encuentra en el alcance del archivo.

En este caso, $x se está configurando en el primer parámetro de función o en el primer parámetro de línea de comando.

Answer 3

Si se encuentra en una subrutina, esta línea será shift en @_ (los parámetros que se pasan).
Así que $x sería el primer elemento popped de la matriz @_.

Así que por lo general se vería $x = shift if @_;

Answer 4

shift() una construida en Perl subrutina que toma una matriz como argumento, entonces vuelve y elimina el primer elemento de la matriz. Es una práctica común obtener todos los parámetros pasados ​​a una subrutina con llamadas shift. Por ejemplo, supongamos que tiene una subrutina foo que toma tres argumentos. Una forma de obtener estos parámetros asignados a las variables locales es con shift así:

sub foo() { 
    my $x = shift; 
    my $y = shift; 
    my $z = shift; 
    # do something 
} 

La confusión aquí es que parece cambio no se está pasando una matriz como un argumento. De hecho, se está pasando la matriz "predeterminada" implícitamente, que es @_ dentro de una subrutina o @ARGV fuera de una subrutina.

Answer 5

En Perl, muchos métodos usan las variables predeterminadas ($_ y @_) si no especifica explícitamente los argumentos. Su código es idéntica a:

my $x = shift @_; 

como señaló PullMonkey anteriormente, dentro de una subrutina, @_ contiene los argumentos que se pasan a la subrutina (como se describe en perlsub). shift eliminará el primer valor de argumento de @_ y lo almacenará en $x, por lo que $_[0] ahora le dará el segundo argumento pasado a su subrutina.

Answer 6

en el lenguaje de un laico, desde un punto de vista muy alto nivel, cambio está tomando el primer elemento de una matriz (la parte más a la izquierda), mientras que lo contrario es pop que está teniendo el último elemento de la matriz (la más a la derecha parte).

 
my @array1=(5,6,7,8,9); 
my $x = shift @array1; 
print "$x\n"; # 5 
print "@array1\n"; # 6 7 8 9