Discussion :

[GnuVince]

Bonjour à tous,

j'ai une petite question sur les prototypes de fonctions, plus particulièrement quand on passe un bloc de code avec l'éperluette (&). Voici un exemple de code qui ne retourne pas le bon résultat:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
sub my_map(&@) {
  my $block = shift;
  my @new;
 
  foreach my $e (@_) {
    push @new, $block->($e);
  }
  return @new;
}
 
 
my @a = my_map { $_ + 3 } (1, 2, 3, 4);
print "@a\n";

Au lieu d'écrire 4 5 6 7 comme on s'y attendrait, on obtient le résultat 3 3 3 3. Afin d'obtenir la bonne réponse, on doit éliminer la variable $e du code et utiliser $_ à la place, comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
sub my_map(&@) {
  my $block = shift;
  my @new;
 
  foreach (@_) {
    push @new, $block->($_);
  }
  return @new;
}
 
 
my @a = my_map { $_ + 3 } (1, 2, 3, 4);
print "@a\n";

Quelqu'un peut-il m'expliquer pourquoi?

[Woufeil]

Salut !

Le problème ne vient pas du prototype ni même de ta fonction mais de ton appel !
Essaie ça :

Code :

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

my @a = my_map (sub{ $_ [0]+ 3; }, (1, 2, 3, 4));

Ca marchera beaucoup mieux

En fait, ton second code marche parce que la valeur de $_ est correcte avant l'appel de ton bloc, mais c'est plus in coup de chance qu'autre chose.

Ah, l'erreur bête qu'on voit jamais $_ à la place de $_[0]

[GnuVince]

Ah! Je mêle pas $_ et $_[0], par contre je me fiais au comportement de map et grep, et je pensais que le $_ était "magique" dans les blocs. Quand tu as utilisé une fonction anonyme, j'ai tout de suite pigé l'attrape. Merci