Discussion :

[seagull]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

my $premier_elt = shift;

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
sub ma_fonction {
  my $premier_arg = shift;
  etc...
}

merci d'avance

[CosmoKnacki]

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:

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

[Lolo78]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

@_ = split;

est dangereuse.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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