Que fait shift() en Perl ?

Question

Que peut bien signifier cette ligne ?

my $x = shift ;

Answer 1

Si vous êtes dans une sous-routine, cette ligne se décalera sur @_ (les paramètres qui sont passés). Ainsi, $x sera le premier élément extrait du tableau @_.

Donc, normalement, vous verriez $x = shift if @_ ;