PERL-XML Perser un fichier avec des atribut

Bonjour a tous,

j'ai beau chercher une solution pou r mon problème mais sans sucée.

je vous explique mon problème:
j'ai un fichier XML que je doit parser avec perl et j’utilise XML::Parser pour cela,dans mon fichier j'ai l'exemple suivant

Code:

---

1 2 3 4 5 6 7 8 9 10

<LieuNaissance> <div style="margin-left:40px"><Pays code="79000">FRANCE</Pays></div></LieuNaissance> <LieuNaissance> <div style="margin-left:40px"><Localite code="75000">Paris</Localite></div></LieuNaissance> <LieuNaissance> <div style="margin-left:40px"><Localite code="94300">Vincennes</Localite> <Pays>FRANCE</Pays></div></LieuNaissance> <LieuNaissance> <div style="margin-left:40px"><Pays code="94300">France</Pays> <Localite>Vincennes</Localite></div></LieuNaissance>

---

dans l'exemple précédent c'est les quatre 4 de figure que je peut rencontré dans mon fichier XML et que je dois traité, et j'ai conçu le code suivant pour traité tout les cas de figure

Code:

---

1 2 3 4 5 6 7 8 9 10 11

if ({LieuNaissance}->{Localite}->{'code'}){ $Cod_Nai = {LieuNaissance}->{Localite}->{'code'}; if ({LieuNaissance}->{Localite}->{'content'}){$Vil_Nai = {LieuNaissance}->{Localite}->{'content'};} if ({LieuNaissance}->{Pays}){$Pays_Nai= {LieuNaissance}->{Pays};} } elsif ({LieuNaissance}->{Pays}->{'code'}){ $Cod_Nai = {LieuNaissance}->{Pays}->{'code'}; if ({LieuNaissance}->{Pays}->{'content'}){$Pays_Nai= {LieuNaissance}->{Pays}->{'content'};} if ({LieuNaissance}->{Localite}){ $Vil_Nai = {LieuNaissance}->{Localite};} }

---

mai c'est pas bon parce pour le 1er exemple il teste la balise localite dans elsif et comme elle n'existe pas il affect à $vil_nai la valeur HASH(0x1fdcc14)

comment testé l'existance de balise et si elle n'existe pas alors il change pas de valeur a la variable, puisqu'elle est deja initialisé au début
pourriez vous m'aidé svp, et merci d'avance

Pour moi, la syntaxe de tes if est incorrecte. Pourrais-tu montrer le reste du script ?

le script et assez long et je sais c'est pas ce que je met exactement.
que ce que tu veux dire par syntaxe des if est incorrecte?
pour le cas 1 j'ai met un print et il dans la dernier condition ou il devrai pas rentrer mai malheureusement il rentre dans la condition, tu pense a un oublie d’accolade ou quelque chose comme ça?

PS: pour le cas 3 et 4 il m'affiche bien le bon résultat qui est 94300; Vincennes; France, mai pour le cas 1 il affiche 79000;HASH(0x1fd9cd4);France

Quand tu écris :

Code:

---

if ({LieuNaissance}->{Localite}->{'code'}){

---

Il manque une référence de variable devant le premier {

Par ailleurs, on ne sait pas très bien comment tu utilises XML::Parser...

dans mon teste j'ai bien la référence, j’utilise xml comme suite:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

my $parser = XML::Simple->new( KeepRoot => 1 ); ################# Traitement Reel ############## my $doc = $parser->XMLin($file_tmp);   foreach my $Identif ( @{ $doc->{ReponseIdentificationRNIPP}   if ($Identif->{LieuNaissance}->{Localite}->{'code'}){ $Cod_Nai = $Identif->{LieuNaissance}->{Localite}->{'code'}; if ($Identif->{LieuNaissance}->{Localite}->{'content'}){$Vil_Nai = $Identif->{LieuNaissance}->{Localite}->{'content'};} if ($Identif->{LieuNaissance}->{Pays}){$Pays_Nai= $Identif->{LieuNaissance}->{Pays};} } elsif ($Identif->{LieuNaissance}->{Pays}->{'code'}){ $Cod_Nai = $Identif->{LieuNaissance}->{Pays}->{'code'}; if ($Identif->{LieuNaissance}->{Pays}->{'content'}){$Pays_Nai= $Identif->{LieuNaissance}->{Pays}->{'content'};} if ($Identif->{LieuNaissance}->{Localite}){ $Vil_Nai = $Identif->{LieuNaissance}->{Localite};} }

---

c'est de cela que tu veut parler?

pour tester l’existence d'une balise c'est bien comme ça qu'on le fais

Code:

---

1 2	if ($Identif->{LieuNaissance}->{Localite}) {TRAITEMENT }

---

PS: j’utilise XML::SIMPLE
je sais pas si c'est du a cela

Dans tes extraits de code, il y a des erreurs de syntaxe. Dans le dernier par exemple, ligne 6, il manque des accolades et parenthèses fermantes.

Sinon, pour vérifier l'existance d'un tag, je t'invite à utiliser la fonction "exists" (par exemple if (exists $Identif->{LieuNaissance}->{Localite}) ...)

Bonjour,

Je vous recommande vivement d'utiliser le module XML::Twig.

effectivement, c'est juste un oublie dans le copier collé, dans mon programme elle existe bien.
sinon même avec la fonction "exists" je constate que le programme rentre bien dans le traitement alors qu'il devrait pas,

j'ai trouvé une solution a mon problème, c'est d y a jouté "content"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

my $parser = XML::Simple->new( KeepRoot => 1 ); ################# Traitement Reel ############## my $doc = $parser->XMLin($file_tmp); foreach my $Identif ( @{ $doc->{ReponseIdentificationRNIPP}}) if ($Identif->{LieuNaissance}->{Localite}->{'code'}){ $Cod_Nai = $Identif->{LieuNaissance}->{Localite}->{'code'}; if ($Identif->{LieuNaissance}->{Localite}->{'content'}){$Vil_Nai = $Identif->{LieuNaissance}->{Localite}->{'content'};} if ($Identif->{LieuNaissance}->{Pays}->{'content'}){$Pays_Nai= $Identif->{LieuNaissance}->{Pays}->{'content'};} } elsif ($Identif->{LieuNaissance}->{Pays}->{'code'}){ $Cod_Nai = $Identif->{LieuNaissance}->{Pays}->{'code'}; if ($Identif->{LieuNaissance}->{Pays}->{'content'}){$Pays_Nai= $Identif->{LieuNaissance}->{Pays}->{'content'};} if ($Identif->{LieuNaissance}->{Localite}->{'content'}){ $Vil_Nai = $Identif->{LieuNaissance}->{Localite}->{'content'};} }

---

a premier vue ca marche.
je te remercie bcp pour ton aide philou

merci djib je vais voir XML::Twig, si c'est pas trop compliqué