Compréhension variable implicite

Bonjour à tous,

j'ai une question qui tourne autour des variables implicites et peut-être leur portée.

Pourquoi est-ce que le code suivant renvoie 'uninitialized value' :

Code:

---

1 2 3 4 5

use strict; $_ = '1 2 3 4 5 6'; @_ = split; my $premier_elt = shift; print "$premier_elt\n";

---

pour que ça marche, il suffit de remplacer :

Code:

---

my $premier_elt = shift;

---

par

Code:

---

my $premier_elt = shift(@_);

---

Pourquoi est-ce une erreur alors que cette tournure me parait classique. Par exemple, l'appel implicite à @_ ne pose pas de problème dans les sub {} :

Code:

---

1 2 3 4

sub ma_fonction { my $premier_arg = shift; etc... }

---

merci d'avance

En l'absence de paramètre, shift prend pour paramètre implicite @_ lorsqu'il est dans une subroutine, mais il prend @ARGV en dehors.
Ce comportement est décrit dans la documentation:

Citation:

---

If ARRAY is omitted, shifts the @_ array within the lexical scope of subroutines and formats, and the @ARGV array outside a subroutine...

---

CosmoKnacki a donné l'explication, elle est parfaitement correcte, je n'y reviens pas.

Mais je te déconseille fortement d'affecter des valeurs aux variables $_ et @_, à moins de très bien savoir ce que tu fais, et encore, seulement dans des cas exceptionnels.

Utilise tes propres variables, c'est bien plus sûr. En particulier, cette ligne:

Code:

---

@_ = split;

---

est dangereuse.

Par exemple, en reprenant ton exemple, écris plutôt quelque chose de ce genre:

Code:

---

1 2 3 4 5 6

use strict; my $str = '1 2 3 4 5 6'; my @nums = split / /, $str; my $premier_elt = shift @nums; print "$premier_elt\n";

---

ou même, si tu préfères:

Code:

---

1 2 3 4

use strict; my $c = (split / /, '1 2 3 4 5')[0]; print "$c\n";

---