Manipuler une structure de HASH

Version imprimable

j'ai besoin d'un coup de main je viens de commencé avec le langage Perl!!!!!
je dispose de la structure suivante:

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
VAR= {
                               'E22G1' => {
                                          'type' => 'GN',
                                          'W' => {
                                                 'lemma' => 'cuisse',
                                                 'tokens' => 'E22T1',
                                                 'form' => 'cuisse',
                                                 'id' => 'E22F1',
                                                 'mstag' => 'wh.minus person.3 time.minus hum.minus gender.fem number.sg',
                                                 'pos' => 'nc',
                                                 'ht' => "refl.minus"
                                               }
                                        },
                               'E22G2' => {
                                          'type' => 'GP',
                                          'W' => {
                                                 'E22F3' => {
                                                            'form' => 'poulet',
                                                            'lemma' => 'poulet',
                                                            'tokens' => 'E22T3',
                                                            'pos' => 'nc',
                                                            'mstag' => 'wh.minus t'
                                                          },
                                                 'E22F2' => {
                                                            'mstag' => '',
                                                            'pos' => 'prep',
                                                            'tokens' => 'E22T2',
                                                            'lemma' => 'de',
                                                            'form' => 'de'
                                                          }
                                               }
                                        },
                               'E22G4' => {
                                          'W' => {
                                                 'ht' => "refl.minus ",
                                                 'form' => 'haut',
                                                 'lemma' => 'haut',
                                                 'tokens' => 'E22T6',
                                                 'pos' => 'nc',
                                                 'mstag' => 'wh.minus person.3 time.minus hum.minus gender.masc number.sg',
                                                 'id' => 'E22F6'
                                               },
                                          'type' => 'GN'
                                        },
                               'E22G3' => {
                                          'W' => {
                                                 'ht' => "refl.minus ",
                                                 'tokens' => 'E22T4',
                                                 'lemma' => "r\x{f4}tir",
                                                 'form' => "r\x{f4}ti",
                                                 'mstag' => 'gender.masc number.sg',
                                                 'id' => 'E22F4',
                                                 'pos' => 'adj'
                                               },
                                          'type' => 'GA'
                                        },
                               'E22G5' => {
                                          'W' => {
                                                 'E22F8' => {
                                                            'tokens' => 'E22T8',
                                                            'lemma' => 'suisse',
                                                            'form' => 'suisse',
                                                            'mstag' => 'wh.minus person.3 time.minus hum.minus gender.masc.fem number.sg',
                                                            'pos' => 'nc',
                                                            'ht' => 'refl.minus'
                                                          },
                                                 'E22F7' => {
                                                            'pos' => 'prep',
                                                            'mstag' => '',
                                                            'form' => 'de',
                                                            'tokens' => 'E22T7',
                                                            'lemma' => 'de'
                                                          }
                                               },
                                          'type' => 'GP'
                                        }
                             },

et j'aimerai accéder obtenir:
si le 'type' est équivalant à 'GP' renvoyer 'lemma' dans 'W' sous forme 'lemma1,lemma2'
sinon renvoyer directement 'lemme' ce trouvant sous 'W'

8O

Tu n'en dis pas assez sur ce dont tu as besoin, mais voici déjà une piste (en supposant que j'ai compris tes besoins):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
my %hash = (
  'E22G1' => {
    'type' => 'GN',
    'W' => {
# ... suite du hash omise pour faire court dans le post
# ...
    'type' => 'GP'
  }
);
 
for my $key (keys %hash) {
	if ($hash{$key}{type} eq 'GP') {
		my $lemme;
		for my $value (values %{$hash{$key}{W}}) {
			$lemme .= "$value->{lemma},";
		}
		print "$lemme \n";
 
	} else {
		print "$hash{$key}{W}{lemma} \n";
	}
}

Ce qui imprime:

Code:

1
2
3
4
5
6
7
 
$ perl hohoh.pl
cuisse
rotir
de,suisse,
haut
poulet,de,

Si tu as besoin de plus amples informations, dis-nous lesquelles.

27/11/2015, 08h57
elitebook190

merci pour la réponse

j'ai un fichier xml à la base que je parse en perl le voila :

<?xml version="1.0" encoding="ISO-8859-1"?>
<Document id="frmg" dtdVersion="2.0" xmlns:xlink="http://www.w3.org/1999/xlink">
<Sentence id="E1" mode="full" best="yes" trust="100">
<T id="E1T1">
cuisse
</T>
<G id="E1G1" type="GN">
<W id="E1F1" pos="nc" lemma="cuisse" form="cuisse" tokens="E1T1" ht="refl.minus imp.minus extraction.minus diathesis.minus ctrsubj.minus arg2.kind.minus arg2.pcas.minus arg2.real.minus arg2.extracted.minus arg2.subarg.minus arg2.function.minus arg1.kind.minus arg1.pcas.minus arg1.real.minus arg1.extracted.minus arg1.subarg.minus arg1.function.objà arg0.kind.minus arg0.pcas.de.minus arg0.real.minus arg0.extracted.minus arg0.function.objde" mstag="wh.minus person.3 time.minus hum.minus gender.fem number.sg"/>
</G>
<T id="E1T2">
de
</T>
<T id="E1T3">
poulet
</T>
<G id="E1G2" type="GP">
<W id="E1F2" pos="prep" lemma="de" form="de" tokens="E1T2" mstag=""/>
<W id="E1F3" pos="nc" lemma="poulet" form="poulet" tokens="E1T3" ht="refl.minus imp.minus extraction.minus diathesis.minus ctrsubj.minus arg2.kind.minus arg2.pcas.minus arg2.real.minus arg2.extracted.minus arg2.subarg.minus arg2.function.minus arg1.kind.minus arg1.pcas.minus arg1.real.minus arg1.extracted.minus arg1.subarg.minus arg1.function.objà arg0.kind.minus arg0.pcas.de.minus arg0.real.minus arg0.extracted.minus arg0.function.objde" mstag="wh.minus person.3 time.minus hum.minus gender.masc number.sg"/>
</G>
<T id="E1T4">
sans
</T>
<T id="E1T5">
peau
</T>
<G id="E1G3" type="GP">
<W id="E1F4" pos="prep" lemma="sans" form="sans" tokens="E1T4" mstag=""/>
<W id="E1F5" pos="nc" lemma="peau" form="peau" tokens="E1T5" ht="refl.minus imp.minus extraction.minus diathesis.minus ctrsubj.minus arg2.kind.minus arg2.pcas.minus arg2.real.minus arg2.extracted.minus arg2.subarg.minus arg2.function.minus arg1.kind.minus arg1.pcas.minus arg1.real.minus arg1.extracted.minus arg1.subarg.minus arg1.function.minus arg0.kind.obj arg0.pcas.minus arg0.real.N2 arg0.extracted.minus arg0.function.obj" mstag="wh.minus person.3 time.minus hum.minus gender.fem number.sg"/>
</G>
<R type="MOD-N" id="E1R2">
<modifieur ref="E1F5"/>
<nom ref="E1F3"/>
</R>
<R type="MOD-N" id="E1R1">
<modifieur ref="E1F3"/>
<nom ref="E1F1"/>
</R>
</Sentence>
</Document>

et je souhaite enfaîte obtenir:

quand ''G'' est un 'type =GP' alors renvoyer le "lemma" exemple : dans le fichier j'ai un 'G' -> sans peau.
sinon renvoyer le lemme directement
pour obtenir au final un sortie de ce type:
cuisse
de poulet
sans peau

merciiiiiii encore pour l'aide

Pour avoir les mots dans l'ordre il faut sans doute trier les clés :

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
Taisha:~/perl/forum $ perl -E 'my $h = {
                               "E22G1" => {
                                          "type" => "GN",
                                          "W" => {
                                                 "lemma" => "cuisse",
                                                 "tokens" => "E22T1",
                                                 "form" => "cuisse",
                                                 "id" => "E22F1",
                                                 "mstag" => "wh.minus person.3 time.minus hum.minus gender.fem number.sg",
                                                 "pos" => "nc",
                                                 "ht" => "refl.minus"
                                               }
                                        },
                               "E22G2" => {
                                          "type" => "GP",
                                          "W" => {
                                                 "E22F3" => {
                                                            "form" => "poulet",
                                                            "lemma" => "poulet",
                                                            "tokens" => "E22T3",
                                                            "pos" => "nc",
                                                            "mstag" => "wh.minus t"
                                                          },
                                                 "E22F2" => {
                                                            "mstag" => "",
                                                            "pos" => "prep",
                                                            "tokens" => "E22T2",
                                                            "lemma" => "de",
                                                            "form" => "de"
                                                          }
                                               }
                                        },
                               "E22G4" => {
                                          "W" => {
                                                 "ht" => "refl.minus ",
                                                 "form" => "haut",
                                                 "lemma" => "haut",
                                                 "tokens" => "E22T6",
                                                 "pos" => "nc",
                                                 "mstag" => "wh.minus person.3 time.minus hum.minus gender.masc number.sg",
                                                 "id" => "E22F6"
                                               },
                                          "type" => "GN"
                                        },
                               "E22G3" => {
                                          "W" => {
                                                 "ht" => "refl.minus ",
                                                 "tokens" => "E22T4",
                                                 "lemma" => "r\x{f4}tir",
                                                 "form" => "r\x{f4}ti",
                                                 "mstag" => "gender.masc number.sg",
                                                 "id" => "E22F4",
                                                 "pos" => "adj"
                                               },
                                          "type" => "GA"
                                        },
                               "E22G5" => {
                                          "W" => {
                                                 "E22F8" => {
                                                            "tokens" => "E22T8",
                                                            "lemma" => "suisse",
                                                            "form" => "suisse",
                                                            "mstag" => "wh.minus person.3 time.minus hum.minus gender.masc.fem number.sg",
                                                            "pos" => "nc",
                                                            "ht" => "refl.minus"
                                                          },
                                                 "E22F7" => {
                                                            "pos" => "prep",
                                                            "mstag" => "",
                                                            "form" => "de",
                                                            "tokens" => "E22T7",
                                                            "lemma" => "de"
                                                          }
                                               },
                                          "type" => "GP"
                                        }
                             };
for my $k (sort keys %$h) {
  say +"-"x50;
  say +(($h->{$k}{type} eq 'GP')
        ? join(" ", map {$h->{$k}{W}{$_}{lemma}} sort keys %{$h->{$k}{W}})
        : $h->{$k}{W}{lemma}
	);
}'
--------------------------------------------------
cuisse
--------------------------------------------------
de poulet
--------------------------------------------------
rôtir
--------------------------------------------------
haut
--------------------------------------------------
de suisse
Taisha:~/perl/forum $

01/12/2015, 15h04
elitebook190

merciiiiii pour ta réponse :mouarf: