Bonsoir a tous

Comme mon intitulé l'indique j'ai des problemes avec les références. Etant encore un debutant en perl je m'adresse à vous pour m'aider sur ce probleme.
je voudrai recuperer mes valeurs par référence dans un tableau.
Je recupere biens les adresses hexadecimal mais lorque je fais appel a mes pointeurs il me retourne une valeur nul et me retrouve avec le message d'erreur "Use of uninitialized value in concatenation <.> or string"
J'affecte dans un premier temps les pointeurs par mon tableau @exemple_vrai et @exemple_faux qui ne contient pas d'erreur et qui est bien affecté.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
     $noeud[$y]->{exemple_vrai}=\@exemple_vrai;
     $noeud[$y]->{exemple_faux}=@exemple_faux;
     @ess=$noeud[$y]->{exemple_vrai};
puis j'essaie de les afficher afin de verifier qu'il me redonne les bonnes valeurs car je n'arrive pas a les utiliser. Or lors de l'affichage je recois l'erreur "Use of uninitialized value in concatenation <.> or string"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
	for (my $i=0;$i<$col1;$i++){
			for(my $j=0;$j<$lig1;$j++){
				print "$ess[$j][$i]\n";
				print "$ess->[$j][$i]\n";
			}
		}


Voici la partie du code qui me rend :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
27
28
29
30
 
     $noeud[$y]->{exemple_vrai}=\@exemple_vrai;
     $noeud[$y]->{exemple_faux}=@exemple_faux;
     @ess=$noeud[$y]->{exemple_vrai};
 
     print "\nexemple_vrai[0][0]\n$exemple_vrai[0][0]\n";
	 print "TEST\n";
     print $noeud[$z]->{exemple_vrai};
     print "\nexemple_vrai\n@exemple_vrai\ness\n@ess\n test";
		my $lig = @exemple_vrai || $#exemple_vrai;
        my $tab=$exemple_vrai[0];
        my $col=@$tab;
		print "\nnombre de ligne : $lig\nnombre de colonne : $col\n";
		for (my $i=0;$i<$col;$i++){
			for(my $j=0;$j<$lig;$j++){
				print "$exemple_vrai[$j][$i]\n";
			}
		}
 
		my $lig1 = @ess || $#ess;
        my $tab1=$ess[0];
        my $col1=@$tab1;
		print "\nnombre de ligne : $lig1\nnombre de colonne : $col1\n";
		for (my $i=0;$i<$col1;$i++){
			for(my $j=0;$j<$lig1;$j++){
				print "$ess[$j][$i]\n";
 
				print "$ess->[$j][$i]\n";
			}
		}
Je remercie d'avance toute les personnes m'apportant leur aide.