Hash et référence

Bonjour,

Voici un petit effet de bord auquel je ne m'attendais pas, et dont je ne comprends pas vraiment la raison;

Code:

---

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/env perl6 use v6;   my %hash; my $i=0; for 1..3 { $i++; %hash{$_}=($i,"$i"); } say %hash;

---

donne

Code:

---

{1 => (3 1), 2 => (3 2), 3 => (3 3)}

---

Le $i est donc passé en référence et non par valeur, contrairement à "$i".

Un fois qu'on sait et qu'on accepte qu'on passe la référence, ça va. Mais pourquoi passe-t-on la référence... je trouve cela bizarre.

Et en effet en perl5

Code:

---

1 2 3 4 5 6 7 8 9 10 11

#!/usr/bin/perl use v5.10; use Data::Dump qw(dump);   my %hash; my $i=0; for (my $j=1;$j<=3;$j++) { $i++; $hash{$j}=($i,"$i"); } say dump(%hash);

---

Code:

---

(2, 2, 1, 1, 3, 3)

---

Citation:

---

Le $i est donc passé en référence et non par valeur, contrairement à "$i".

Un fois qu'on sait et qu'on accepte qu'on passe la référence, ça va. Mais pourquoi passe-t-on la référence... je trouve cela bizarre.

---

Ça n'a pas spécialement à voir avec les Hashs, mais plutôt avec les listes.

En écrivant une liste avec une ou des variables (containers), les items de la liste ne sont pas les valeurs de ces containers, mais les containers eux-mêmes. Ce qui fait que lorsque je modifie la valeur de ces containers, je ne modifie pas la liste (qui est immutable), mais par contre j'obtiendrai les valeurs courantes de ces containers au moment de l'interpolation de la dite liste, comme son affichage ou son affectation à une variable sans qu'il y ait liaison (binding).

En parcourant le livre "Learning Perl 6" de Brian D Foy, je me suis rendu compte que celui-ci évite soigneusement d'utiliser le terme "référence". Ce n'est pas pour rien: bien que sous le capot, tout se passe "par référence", Perl 6 met un point d'honneur à ce qu'on ait à s'en soucier le moins possible en s'appuyant sur le contexte pour "déréférencer" quand il le faut, bien plus que ne le fait Perl 5 où la notion de référence est très vite indispensable.

Ce n'est donc pas un effet de bord mais une fonctionnalité plutôt pratique, si on veut faire varier une liste au cours du code. Mais quand on s'attend à ce que ces containers soient interpolés, c'est plutôt gênant !

Heureusement la solution est simple: il suffit de placer la liste entre << et >> ou entre « (U+00AB LEFT-POINTING DOUBLE ANGLE QUOTATION MARK) et » (U+00BB RIGHT-POINTING DOUBLE ANGLE QUOTATION MARK) et ainsi toutes les variables de la liste seront interpolées. Si on souhaite l'appliquer juste sur un item particulier, on peut aussi utiliser l'opérateur postfix de "décontainerisation" <>.

Un peu de code:

Code:

---

1 2 3 4 5 6

my $name = 'Philippe André'; my $names = ( $name, 'Patrick Henry', 'Émile Pierre' );   put $names.join(' | '); # Philippe André | Patrick Henry | Émile Pierre $name = 'Fabrice Michel'; put $names.join(' | '); # Fabrice Michel | Patrick Henry | Émile Pierre

---

Code:

---

1 2 3 4 5 6

my $name = 'Philippe André'; my $names = « $name, 'Patrick Henry', 'Émile Pierre' »;   put $names.join(' | '); # Philippe André | Patrick Henry | Émile Pierre $name = 'Fabrice Michel'; put $names.join(' | '); # Philippe André | Patrick Henry | Émile Pierre

---

Code:

---

1 2 3 4 5 6

my $name = 'Philippe André'; my $names = ( $name<>, 'Patrick Henry', 'Émile Pierre' );   put $names.join(' | '); # Philippe André | Patrick Henry | Émile Pierre $name = 'Fabrice Michel'; put $names.join(' | '); # Philippe André | Patrick Henry | Émile Pierre

---

Pourquoi le problème s'est-il révélé en affectant une liste à une valeur de hash? Et bien parce que cette affectation se fait avec liaison comme par exemple:

Code:

---

1 2 3 4

my $var1 = 'toto'; my $var2 := $var1; # $var2 est un alors un alias de $var1 $var1 = 'ziboinboin'; put $var2; # ziboinboin

---

---

À noter qu'en Perl 5, lors de la création d'un hash avec pour item des listes, on doit explicitement les passer par référence:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

use strict; use warnings;   use Data::Dump 'dump';   my %hash;   my $i = 0;   for ('a'..'c') { $i++; $hash{$_} = [$i, "$i"]; # ^--------^--- les crochets en Perl 5 signalent une référence }   print $hash{'a'}, "\n";   print dump(%hash);

---