comportement étrange des références Perl

Question

Jetez un oeil à ce morceau de code:

my @arr = (1, 2); 
my $ref = \@arr; 
my @s = @$ref; 
push @s, 4; 
print join(", ", @arr) . "\n"; 

Contre toute attente, la sortie est "1, 2". Qu'est-il arrivé? Comment se fait-il que j'ai deux tableaux différents (@s is (1,2,4))?

Bien sûr je reçois "1, 2, 4" si j'écris, avant la sortie, quelque chose comme ceci:

$ref = \@s; 
@arr = @$ref; 

Mais cela semble plutôt maladroite.

Je suis habitué à d'autres langages OOP, dans lesquels une telle chose ne se produirait pas - un objet peut être modifié, quelles que soient ses références.

Donc, quelqu'un peut-il m'aider s'il vous plaît avec ça?

Answer 1

my @s = @$ref; 

fait une copie du tableau référencé. Après cela, @s et @arr sont des tableaux sans rapport qui ont juste le même contenu (pendant un certain temps).

Si vous souhaitez modifier le tableau référencé, vous devez l'utiliser directement, par exemple .:

push @$ref, 4; 

Il y a aussi le module Data::Alias, qui (je pense) vous permet de faire ce que vous demandez. Mais il y a de la magie profonde impliquée là-bas, et je ne l'ai jamais utilisée moi-même.