Discussion :

[Le Barde]

Salut à tous,
Dans le cadre d'une appli que je suis en train de développer, je susi tombé sur un drôle de problème, dont j'ai tenté de reproduire ici l'essence.

Voici un exemple minimal :

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
#!/usr/bin/perl
use strict;
use warnings;
 
sub new ()
{
    my %hdhReturn;
    $hdhReturn{"lvl_1"}{'lvl_1->lvl_2'} = "Feuille";
    return %hdhReturn;
}
 
sub utiliseHdH(%)
{
    my %hdh = shift;
}
 
######################
# MAIN               #
######################
 
my %hdh = new();
afficheHdH(%hdh);

Mon problème est que j'ai un hachage de hachages et que je ne sais pas trop comment les utiliser, car apparemment le nombre d'éléments de ce hachage de hachages est impair, et au passage d'arguments ça coince. La structure de ce HdH est d'ailleurs changée par passage en argument.

À l'exécution ça me donne :

Odd number of elements in hash assignment at 03-hachages.pl line 16.

... la ligne 16 étant la récupération du hachage dans la méthode utiliseHdH(%).

Si vous aviez une piste quelconque pour le passage de HdH en argument...
Merci d'avance !

[Jasmine80]

Je pense que tu dois passer une référence à ton sous-programme.

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
#!/usr/bin/perl
use strict;
use warnings;
 
use Data::Dumper;
 
sub new
{
    my %hdhReturn;
    $hdhReturn{"lvl_1"}{'lvl_1->lvl_2'} = "Feuille";
    $hdhReturn{"lvl_1"}{'lvl_1->lvl_3'} = "Feuille";
    return %hdhReturn;
}
 
sub utiliseHdH
{
    my $ref_hdh = $_[0];
    print Dumper %{$ref_hdh};
}
 
######################
# MAIN               #
######################
 
 
my %hdh = new();
utiliseHdH(\%hdh);

[Le Barde]

Ah voilà, je pense qu'effectivement des références seraient bien ; par contre, voici ce que ça me donne si je passe en argument \%hdh au lieu de %hdh :

Reference found where even-sized list expected at 03-hachages.pl line 17.

Normal tu penses ?

[Jasmine80]

Je ne sais pas, je n'ai pas ce problème chez moi. N'as-tu rien changé au code?
Tu ne dois pas mettre le (%) devant sub utiliseHdH

[djibril]

Voilà quelque chose de propre

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
31
32
33
34
35
#!/usr/bin/perl
use strict;
use Carp;
use warnings;
 
 
######################
# MAIN               #
######################
 
 
my %hdh = new();
utiliseHdH(\%hdh);
<STDIN>;
 
######################
# PROCEDURES         #
######################
 
# Initialise mon hash
sub new {
  my %hdhReturn = (
    "lvl_1" => {
      'lvl_1->lvl_2' => "Feuille",
    },
  );
 
  return %hdhReturn;
}
 
sub utiliseHdH {
    my ($RefHdhReturn) = @_;
 
    print "TEST : $RefHdhReturn->{lvl_1}{'lvl_1->lvl_2'}\n";
}

[Le Barde]

Exact Jasmine ! C'était bêtement ça. Merci beaucoup, cela fonctionne dans mon exemple ; reste plus qu'à l'intégrer dans mon projet

Merci aussi djibril, en plus je ne connaissais pas ce Carp

Sujet résolu, bonne journée !

[Le Barde]

Je reviens à la charge !

Cette histoire fonctionne donc parfaitement, pour les références tout fonctionne bien.

Maintenant, mon programme mouline, et il appelle donc une bonne quantité de fois les méthodes qui créent le fameux hachage, que je prends en référence. À la fin du traitement de chaque hachage, je le laisse de côté ; il doit donc normalement être détruit par le garbage collector, non ? Et dans l'itération suivante, je crée une nouvelle référence de hachage...

Seulement voilà : aux itérations suivantes, la référence du nouveau hachage est choisie comme par hasard... égale à celle que j'ai créée auparavant !

Connaissez-vous un bon moyen pour forcer la création dans une nouvelle zone mémoire, ou de forcer la destruction d'un hachage de hachages ? undef $maRefHachage ne donne rien de plus de ce côté...

[Jasmine80]

ou de forcer la destruction d'un hachage de hachages

Pour détruire, je ne sais pas mais tu peux totalement vider ton tableau en utilisant %hash = ();.

[Le Barde]

Ah c'est fou : ça ne fonctionne pas.
Avec un Data::Dumper, c'est censé m'afficher ce genre de choses :

$VAR1 = {
'PULL_AND_ARCHIVE' => {
'REQIDENT' => '01',
'CIPHER_ARCH_FUNCTION' => 'NONE',
'LOTID' => '01',
'AGEHOST' => 'lat203'
}
};

avec un seul couple clé-valeur au niveau 1 (ici PULL_AND_ARCHIVE). Or au bout de quelques itérations, j'obtiens quelque chose dans ce goût-là :

$VAR1 = {
'RELOAD_QUERY' => {
'REQIDENT' => '01',
'CIPHER_ARCH_FUNCTION' => 'NONE',
'LOTID' => '01',
'AGEHOST' => 'lat203'
},
'LOG_OPEN' => undef,
'SERVER_STATUS' => undef,
'PULL_AND_ARCHIVE' => undef,

Mince... Si vous avez des idées... Pour mémoire, pour utiliser des références comme cela j'ai été obligé d'enlever le pragma strict refs. Merci beaucoup Jasmine, en tous cas !

[djibril]

Sincèrement, je ne comprends pas ton souci.
Je t'ai fait un code complet, qu'est ce que tu n'arrive plus à faire?
Peux tu nous montrer ton nouveau code?

[Jasmine80]

Je pense que tu devrais remettre le pragma strict et retravailler ton code.

[Le Barde]

Yourêkah !

J'ai vu ton code complet Djibril, mais mon projet est un peu plus complexe, donc un bug se perd forcément plus facilement... En tous cas, j'ai compris ; à la fin je me disais bien qu'il devait y avoir une erreur bête, et j'ai trouvé : je ne déréférençais pas le bon objet .

Merci à vous deux pour votre aide précieuse

[djibril]

ok