Bonjour,
Comme vous allez le constater je debute en perl, et je me retrouve avec un petit probleme de reference ou quelque chose dans le genre
Voila une premiere partie de mon code. Le print $t qui est en fait un objet m'affiche :
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 while($i<=$#tmp) { $t = go::modules::Term->new($tmp[$i]); print $t; push @term, $t; $i++; } $session->param('term', \@term); $file = 'choose_view.tmpl'; $vars = { 'tabTerm' => \@term, 'idSession' => $sid, };
Maintenant dans un autre script si je rappelle cet objet se trouvant dans ma session
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 go::modules::Term=HASH(0x9e6d414)
ce print $t devrait m afficher la mm chose or cela n'est pas le cas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 my $allT = $session->param('term'); foreach $t (@{$allT}) { print $t; }
go::modules::Term=HASH(0x9ff2648)
Cela n'est pas la meme reference de ce fait je ne peux pas recuperer le bon objet.
Merci pour vos explications
Edité par GLDavid. Merci de penser à mettre les balises codes![]()
Partager