[langage] Comportement étrange d'une variable

Bonjour,

Je me trouve face à un problème qui parait anodin mais qui m'embête profondément, et surtout qui frise le surnaturel 8O

Explication :

J'utilise plusieurs listes dans mon scripts et j'effectue divers traitement dessus. Je rencontre le problème suivant : lorsque j'écris dans un emplacement sur une liste, ça écris la même chose au même endroit dans l'autre liste!

Exemple :

Code:

---

1 2 3

$liste1[0][1] = "texte1"; $liste2[0][1] = "texte2";

---

Si je fais la chose suivante :

Code:

---

1 2 3

$liste2[0][1] = "coucou"; print $liste1[0][1]; # Affiche coucou !!!!

---

Voilà, il faut savoir que c'est dans un script PERL de plus de 200 lignes qui consomme pas mal de ressources. J'utilise la module USE STRICT.

On dirait qu'il y a un pointeur ou une liaison entre les listes c'est vraiment très étrange, si quelqu'un a déjà vu rencontré ce type de problème...

Merci.

et si tu fais:

Code:

---

1 2 3 4 5 6

$$liste1[0][1] = "texte1"; $$liste2[0][1] = "texte2";   $$liste2[0][1] = "coucou"; print $$liste1[0][1];

---

Ce problème ne frise pas le surnaturel, il est probablement dû à une ligne antérieure, où tu as affecté le même tableau au sous-tableau de ces deux listes, par conséquent, ces deux listes (ou du moins leur sous tableau n°0) se réfèrent au même tableau en mémoire, d'où le problème... :D
C'est un cas assez fréquemment rencontré dans les langages de haut niveau, quand ils autorisent à manipuler des références ou autres qui s'assimilent à des pointeurs, à cause de leur nature de haut niveau et de leur permissivité, les programmeurs ont tendance à oublier tous ces problèmes de pointeur et de mémoire et à faire des assignation comme ça, sans réfléchir :

Code:

---

1 2 3

@liste1[0] = \@liste_de_base; @liste2[0] = \@liste_de_base;

---

Donc il suffit que tu retrouves ces assignations, et que tu les remplaces par :

Code:

---

1 2 3

@liste1[0] = [@liste_de_base]; @liste2[0] = [@liste_de_base];

---

Mais il est également possible que le problème soit plus vicieux, par exemple une assignation dans une boucle alors que le tableau a été initialisé à l'extérieur. Pour un exemple de ce cas, un post récent en présente plusieurs facettes.

--
Jedaï

Bonjour et merci de vous intéresser à mon problème.

Pour commencer, lors que je fais :

Code:

---

1 2 3 4 5 6

$$liste1[0][1] = "texte1"; $$liste2[0][1] = "texte2";   $$liste2[0][1] = "coucou"; print $$liste1[0][1];

---

Cela me produit une erreur, comme quoi je n'ai pas déclaré $liste2. D'après ce que j'ai pu lire après quelque recherche, $$ est un scalaire prédéfinies qui contient l'ID de processus du processus actuel, dans lequel tourne le script, tel qu'il a été affecté par le système d'exploitation.

Pour entrer un peu plus dans les détails, voilà la démarche de mon programme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

# Déclaration des listes my @result1; my @result2; my @result3;   # Traitement et remplissage de @result1 ...   # Traitement sur @result1 et remplissage de @result2 ...   # Traitement sur @result2 et remplissage de @result3 .... #Traitement @result2 = @result3; #Copie du contenu de @result2 dans @result3 @result3 = undef;   # Traitement sur @result2 et remplissage de @result3 ... # Traitement @result2 = @result3; # Ici j'ai la même chose dans les 2 listes   # Traitement sur @result3 SEULEMENT for ($m=0;$m<$var;$m++) { $result3[$m][2] = "coucou"; # [color=red]*[/color] ... }

---

* C'est ici mon problème, cette ligne a pour effet d'écrire aussi dans $result2[$m][2].

J'ai essayé lors de mes copies de listes les choses suivantes :

Code:

---

1 2 3 4

@result2 = (@result3); @result2 = [@result3]; @result2 = \@result3;

---

Cela a pour effet de bloquer mon script CGI, le traitement s'arrête et je n'ai plus aucun affichage à l'écran.
Je n'ai jamais eu ce problème auparavant alors que je copiais des listes dans d'autres listes sans problèmes.

J'ai trouvé une solution provisoire, réaffecter les colonnes des listes 1 par 1, à savoir qu'au lieu de faire ça :

Code:

---

@result2 = @result3;

---

Je fais la chose suivante :

Code:

---

1 2 3 4 5

for ($m=0;$m<@result3;$m++) { $result2[$m][0] = $result3[$m][1]; $result2[$m][1] = $result3[$m][2]; $result2[$m][2] = $result3[$m][3]; }

---

Mais bon le mystère reste entier... :roll:

Code:

---

@result2 = @result3;

---

C'est là qu'est le problème : avec des listes normales ça marche parce que toutes les valeurs de @result3 sont copiées dans @result2, mais réfléchit bien, qu'y a-t-il dans @result3 dans ce cas particulier ?? Des références vers des sous-tableau, ces références sont donc copiées d'un tableau dans l'autres, mais elles continuent à pointer sur les mêmes sous tableaux...

Le problème est donc clair, et dans ce cas particulier (tableau de tableaux), facilement réglable, il suffit de faire :

Code:

---

1 2 3 4

for my $i (0..$#result3) { $result2[$i] = [ @{ $result3[$i] } ] }

---

qui est un peu plus rapide que ta solution, et un peu plus généraliste.

Néanmoins, pour être vraiment général, il existe un module de la distribution standard qui permet d'effectuer une "vraie" copie, sans en passer par la phase de réflexion :

Code:

---

1 2 3 4

use Storable qw(dclone);   @result2 = @{ dclone(\@result3) };

---

Là, on est sûr du résultat, quelle que soit la structure interne de @result3 (évidemment, s'il s'agit d'une simple liste, c'est un peu dispendieux, mais bon...). :D

--
Jedaï

Merci beaucoup pour ces précisions Jedai, cela pourra servir à d'autres personnes qui pourraient se retrouver confronté à ce genre de problème.

Je prends notes des autres méthodes de clonage de liste qui semble plus légère et surtout plus efficace, et comme j'ai besoin d'économiser les ressources au maximum cela convient parfaitement.

Au plaisir, ++