Foro - Perl en Español

Hola.
Tengo una duda de cómo Perl maneja los objetos.

Tengo una clase Nodo (Nodo.pm), la cual tiene dos atributos: el nombre y una matriz nXn.

En el programa que usa la clase Nodo.pm, creo una matriz nXn llena de 0.
Creo varios objetos: objeto1, objeto2,...

Le asigno un nombre a cada objeto y le asigno la matriz, con una pequeña modificación en un campo.

Cuando imprimo cada matriz de cada objeto, resulta que todas contienen la misma matriz.

No estoy seguro, pero creo que todas apuntan a una referencia de la matriz original.

Gracias por cualquier ayuda. Uso Perl v5.10.

Aquí un fragmento del código



Lo que me retorna es esto (con una matriz 2x2)


Fragmento del constructor

El problema seguro que está en el método tablero(). Cuando haces esto

$nodoA->tablero(@tablero);

estás pasando al método una lista de valores (los elementos del arreglo @tablero). Y, cada uno de esos elementos son referencias a otros arreglos (que contienen las "columnas" de cada "fila").

Pues bien, es muy posible que el método que usa el método para crear la representación interna no copie bien los elementos de @tablero al {TABLERO} interno. Y como los elementos de las "filas" son referencias, pues entonces vas arrastrando referencias a los mismos elementos.

Una forma de hacer copias de estructuras de datos complejas, como la del @tablero, es con el módulo Clone:



y así te aseguras de que has creado una copia del @tablero que el usuario pasó como argumento al método.

Gracias por esa ayuda tan grande.

Así quedó el método tablero de la clase Nodo.pm


Ahora tengo otro problema.

Ahora al darle


Lo que me está imprimiendo son direcciones de memoria


Al imprimir todas las direcciones de memoria se ve que cada matriz es distinta de otra, entonces sí se solucionó el problema anterior.

Si hago una copia

Y la imprimo, pasa lo mismo.

No tengo ni idea de qué está haciendo.

Gracias por cualquier ayuda.

Donde estoy ahora no puedo probarlo, pero según la documentación del módulo debería ser así

@{ $self->{TABLERO} } = @{ clone(\@_) }

o así

$self->{TABLERO} = clone(\@_)

Recuerda: Data::Dumper es tu amigo.

Muchísimas gracias por la ayuda.

Sí, es como dijiste:
@{ $self->{TABLERO} } = @{ clone(\@_) }

Ahora el método quedó así:


Ahora sí imprime la matriz como debe ser, y cada objeto tiene su matriz independiente de la otra.

Lo de Data::Dumper no lo conozco, apenas estoy leyendo sobre eso.

De nuevo muchísimas gracias, porque no sabía cómo buscar en Internet sobre mi error en el momento de crear los objetos.