Problème de compréhension avec un HASH [Résolu]

[Bundy*Al]

Bonjour,

Je suis nouveau sur Perl et j'ai du mal à comprendre ce code.

Ci-dessous l'appel de la fonction que je souhaite utiliser:

Code :

Bugzilla::Hook::process('bug_end_of_create_validators', { params => $params });

Ci-dessous la fonction en question:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
sub bug_end_of_create_validators {
    my ($self, $args) = @_;
 
    # This code doesn't actually *do* anything, it's just here to show you
    # how to use this hook.
    my $bug_params = $args->{'params'};
 
    # Uncomment this line below to see a line in your webserver's error log
    # containing all validated bug field values every time you file a bug.
    # warn Dumper($bug_params);
 
    # This would remove all ccs from the bug, preventing ANY ccs from being
    # added on bug creation.
    # $bug_params->{cc} = [];
}

Si dans cette fonction je fais:

Code :

print($bug_params);

J'obtiens:

HASH(0x293F0d8)

J'en conclu donc que c'est un HASH mais je ne sais pas ce qu'il contient.

En m'aidant de la FAQ je fais:

Code :

1
2
3
4
	foreach my $clef ( keys %bug_params )
	{
		print "$clef : $bug_params{$clef}\n";
	}

Mais j’obtiens toujours:

HASH(0x293F0d8)

Je ne sais pas comment faire pour connaitre le contenu de cette variable.

Avez-vous une idée?

Merci.

[Lolo78]

C'est une référence à un hash.

Tu peux utiliser le module Data:umper pour voir le contenu:

Code :

1
2
3
4
5
use Data::Dumper;
 
# ...
 
print Dumper $bug_params;

Ou, sous le debugger, "x $bug_params".

Ou, sinon, il faut déreférencer la référence avec le sigil %devant le signil $.

EDIT: j'ai oublié de préciser le plus important: compte tenu du contexte (utilisation de module), il y a certainement une méthode pour accéder à tes données, et c'est certainement la meilleure solution.

[Lolo78]

Envoyé par Bundy*Al

J'en conclu donc que c'est un HASH mais je ne sais pas ce qu'il contient.

En m'aidant de la FAQ je fais:

Code :

Comme c'est une référence sur un hash, tu dois simplement changer ton code comme suit (par exemple):

Code :

1
2
3
4
	foreach my $clef ( keys %$bug_params )
	{
		print "$clef : $$bug_params{$clef}\n";
	}

Mais encore une fois, il y a certainement une méthode d'accès à tes données.

[Bundy*Al]

Merci pour ces explications, je serai comment afficher une référence à un hash maintenant.
Oui j'ai finalement réussi a accéder aux données par un autre moyen qui finalement est beaucoup plus simple.