Récuperer valeur d'une clé dans une fonction

Version imprimable

bonjour tous le monde,

Je voudrais savoir commnent récupérer la valeur d'une clé provenant d'un hash (SpecRef) sachant que je suis dans une fonction :
voici mon code, enfin un morceau :

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
foreach $linekmtn (@$KMTN)
        {
        	# -- One specie
 
                if ($linekmtn =~ /^\s#(\d+)#\s(\d.+)\s\{(\w.+)\}/)
                {
                        next unless exists ($SpecRef->{$1});
                        ($specie1, $val, $compound) = ($1, $2, $3);
 
 
                        foreach $data (@$allfile)
                        {
                                chomp $data;
                                next unless ($data =~ m/^(\d+\.\d+\.\d+\.\d+)\t(\w.+)\t(\w.+)\tc\t/i);
                                next if $1 ne $numEC;
 
                                ($valEC, $NameReact, $Equation) = ($1, $2, $3);
 
                                $da2 = $data;
                                $da2 =~ s/^\d+\.\d+\.\d+\.\d+\t\w.+\t\w.+\tc\t//gi;
 
                                foreach $ligne (split /;/, $da2)
                                {
                                        ($shortC,$nameC,$formulaC) = split (/\t/,$ligne);
 
 
                                        next if (($nameC eq $duplicateN) && ($val eq $duplicateV));
 
                                        &Product_Substrate($R_D,$R_Ins,$nameC,$formulaC); #envoie sur la base pour table product ou substrat
 
 
 
                                        if ($nameC eq $compound)
                                        {
 
                                               #  &Reaction_Prod_Sub($R_D2,$R_Ins2,$Equation,$NameReact,$nameC,$formulaC);
                                                print FIL "\n  $specie1 : $compound : $val" ;
                                                $duplicateN = $nameC;
                                                $duplicateV = $val;
 
                                                #-------condition-------#
 
                                                # deux conditions pour la meme espece
                                                if ($linekmtn =~ /^\s\#(\d+)\#\s(\d.*)\s\{(\w.*)\}\s\s\(\#\d+\#\s(\w.+)\<\d+\>\;\s\#\d+\#\s(\w.+)\<\d+\>\)\s/)
                                                {
                                                        $condition=$4.$5;
                                                        print FIL (" - $condition");
                                                        &R_KMP ->execute ($val,$condition,($SpecRef{$specie1}),$nameC,$formulaC);
                                                }

et lors de l'appel de ma requete j'ai besoin de la valeur de la clé, j' ai déjà utilisé cette syntaxe : $hash{$key} pour récupérer la valeur d'une clé , et ca marchait très bien jusqu'à présent... je pense qu'il s'agit d'une erreur toute bête mais je l'a trouve pas..
et j'ai bien évidemment déclaré tous ce qui est nécessaire..

11/08/2008, 16h59
Jedai

D'un côté tu as :

Code:

$SpecRef->{$1}

ce qui semble indiquer que $SpecRef est une référence sur un hash (vu le nom... on aurait pu s'en douter)
et de l'autre :

Code:

$SpecRef{$specie1}

Cette seconde écriture consulte le hash %SpecRef, pas le hash contenu par la référence $SpecRef... Je doute que ce soit ton intention.

Si tu avais utilisé le pragma "strict", cette erreur t'aurait été signalé sans ambiguité.

--
Jedaï

j 'utilise use strict, et oui effectivement l'erreur m'a été signalée, mais je ne sais pas comment récuperer la valeur associée à la clé specie1.

d'habitude j'utilise une boule qui parcourt mon hash et qui recupere la valeur que je veux :
Code:

1 2 3 4 5 6 7 8 foreach $k (sort keys %$SpecRef) { if ($specie1 eq $k) { $NameOrga = $SpecRef{specie1); } }
mais la je ne veux pas utiliser cette méthode je ne veux pas réouvrir une autre boucle, j'aimerais savoir si il y a une autre façon de faire

11/08/2008, 17h39
Jedai

Tu devrais réviser tes structures de données en Perl. Ce que je ne comprends pas bien c'est que tu ais la structure correcte à un endroit et que tu sois incapable de la réappliquer à un autre, même si je te la remontre...

Code:

$SpecRef->{$specie1}

--
Jedaï
18/08/2008, 11h35
juzii

oki merci..
je revois mes structures...