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:
Ci-dessous la fonction en question:
Code : Sélectionner tout - Visualiser dans une fenêtre à part Bugzilla::Hook::process('bug_end_of_create_validators', { params => $params });
Si dans cette fonction je fais:
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 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} = []; }
J'obtiens:
Code : Sélectionner tout - Visualiser dans une fenêtre à part print($bug_params);
J'en conclu donc que c'est un HASH mais je ne sais pas ce qu'il contient.HASH(0x293F0d8)
En m'aidant de la FAQ je fais:
Mais j’obtiens toujours:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 foreach my $clef ( keys %bug_params ) { print "$clef : $bug_params{$clef}\n"; }
Je ne sais pas comment faire pour connaitre le contenu de cette variable.HASH(0x293F0d8)
Avez-vous une idée?
Merci.
Partager