En Perl, ¿cómo puedo hacer una copia profunda de una matriz?

Question

Duplicar posible:
What's the best way to make a deep copy of a data structure in Perl?

En mi código que hago:

@data_new=@data; 

y luego me cambio @data.

El problema es que @data_new siempre cambia también. Es como @data_new es solo una referencia a lo que hay en @data.

¿Cómo hago una copia de una matriz que no es una referencia sino una nueva copia de todos los valores?

@data es una matriz bidimensional, por cierto.

Answer 1

El código que tiene será y copiará el contenido de la lista a una nueva lista. Sin embargo, si está almacenando referencias en la lista (y debe hacerlo para crear una matriz bidimensional en Perl), se copian las referencias , no los objetos a los que apuntan las referencias. Entonces, cuando manipulas uno de estos objetos referenciados a través de una lista, parece que la otra lista está cambiando, cuando en realidad ambas listas solo contienen referencias idénticas.

Tendrá que hacer una "copia profunda" de la lista si desea duplicar todos los objetos referenciados también. Vea this question para algunas maneras de lograr esto.

Dada su caso de una matriz de dos dimensiones, esto debería funcionar:

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

Answer 2

Ver perlfaq4's "How do I print out or copy a recursive data structure". Es decir, use el método dclone desde Storable.

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