En Perl, comment puis-je faire une copie en profondeur d'un tableau?

Question

Possible en double:
What's the best way to make a deep copy of a data structure in Perl?

Dans mon code, je le veux

@data_new=@data; 

puis je change @data. Le problème est que @data_new change toujours aussi bien. C'est comme @data_new est juste une référence à ce qui est @data.

Comment faire une copie d'un tableau qui n'est pas une référence mais une nouvelle copie de toutes les valeurs?

@data est un tableau à deux dimensions, soit dit en passant.

Answer 1

Le code va copier le contenu de la liste dans une nouvelle liste. Toutefois, si vous stockez des références dans la liste (et que vous devez créer un tableau bidimensionnel en Perl), les références sont copiées, pas les objets pointés par les références. Ainsi, lorsque vous manipulez l'un de ces objets référencés à travers une liste, il semble que l'autre liste change, alors qu'en réalité les deux listes contiennent des références identiques.

Vous devrez effectuer une "copie complète" de la liste si vous souhaitez également dupliquer tous les objets référencés. Voir this question pour certains moyens d'accomplir cela.

Compte tenu de votre cas d'un tableau à deux dimensions, cela devrait fonctionner:

@data_new = map { [@$_] } @data; 

Answer 2

Voir perlfaq4's "How do I print out or copy a recursive data structure". Autrement dit, utilisez la méthode dclone de Storable.

use Storable qw(dclone); 
@data_new = @{ dclone(\@data) }