Discussion :

[otocyon]

Salut !

Tout à l'heure, je me suis amusé à coder un petit jeu de pendu en Perl et j'ai été confronté à un problème que je n'arrive pas à expliquer. Soit une routine has qui prend un tableau de lettres et un motif, et qui renvoie Vrai si ce motif est trouvé dans le tableau.
Voici la manière dont je l'ai codé (cela fonctionne) :

Code :

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

1
2
3
4
5
6
7
8
 
sub has {
  my ($a, $p) = @_;
  for(@$a) {
    return 1 if $_ eq $p;
  }
  return 0;
}

Rien de bien particulier ici. Seulement, mon premier jet était le suivant, et à ma grande surprise il fonctionnait très mal (comme s'il n'y avait qu'un seul élément dans @_) :

Code :

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

1
2
3
4
5
6
7
8
 
sub has {
  my (@a, $p) = (@{shift;}, shift);
  for(@a) {
    return 1 if $_ eq $p;
  }
  return 0;
}

Est-ce l'expression @{shift;} qui n'est pas correcte ? Merci de m'éclairer.

[Zwiter]

Il faut garder les références jusqu'au bout :

Code :

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

my ($a, $p) = (shift, shift);

et donc utiliser @$a et $p tout le long de ta fonction.

L'autre solution possible (a tester) pourrait etre de recuperer $p avec shift, donc de retirer du tableau d'argement cette valeur, puis de recuperer les autres valeurs en tant que un seul tableau :

Code :

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

my ($p, @a) = (shift, shift);

Ou quelque chose de ce genre. L'idée est que tous les arguments sont considerés comme un seul tableau. Donc quand tu veux mettre une variable dans un tableau de facon explicite (@a), Perl a tendance a y fourrer tous les arguments. Si tu retire ton 1er argument, plus de soucis : Perl peut bien tout mettre, c'est ce que tu veux !

Z.

[otocyon]

Qu'entends-tu par «il faut garder les références jusqu'au bout» ?
Quand j'écris :

Code :

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

1
2
 
my (@a, $i) = (@{shift;}, shift);

Je m'imagine la chose comme cela :

Code :

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

1
2
3
 
my ($a, $i) = @_; #dans notre cas, @_ <=> (shift, shift)
my @a = @$a;

En somme, je pensais qu'on pouvait raccourcir cela en effectuant la conversion référence->tableau en même temps qu'on récupère l'argument, via la syntaxe :

Code :

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

1
2
 
@t = @{$address}; #ou $address est dans notre cas la première valeur du tableau

EDIT
Ah, non, je viens de comprendre; c'est un des petits pièges de Perl ! Dans mon expression d'affectation, ma liste @a est gloutonne (ce n'est pas le cas en Ruby, par exemple). Elle récupère donc tout ce qui est à droite de l'opérateur d'affectation, laissant $i indéfinie ! Bien sûr, tout fonctionne si j'écris :

Code :

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

1
2
3
4
5
6
 
sub has {
  my @t = @{shift;};
  my $p = shift;
  ...
}

J'aurais dû plus réfléchir avant de poster .