Discussion :

[bforzeus]

Bonjour a tous,

j'ai beau cherché de la doc sur du XmlTwig en français, mai je trouve qu'en anglais, y aurait'il parmi vous qui pe m'indique ou je peux trouvé de la doc en français vue que moi et l'anglais ca fé 2.

merci d'avance
bonne journée

[Lolo78]

Tu peux déjà consulter l'excellent tutoriel de Djibril:

http://djibril.developpez.com/tutoriels/perl/perl-xml/

[bforzeus]

merci LOLO
c'est déjà fais

[djibril]

Bonjour,

Déjà quelques remarques très importantes :

1. lorsque vous cherchez la documentation d'un module, elle ne se trouve principalement que sur le site du CPAN et c'est toujours en anglais. Il va falloir s'y faire car c'est la langue de référence en informatique. Si l'anglais et vous ça fait deux, bah va falloir s'améliorer car le code fourni fera également deux avec vous ;
2. mon article cité ci-dessus par LOlo78 pourra vous donner un premier aperçu du module. Vous y trouverez en fin d'article une liste de liste de liens dont celui du créateur du module qui contient une documentation avec des exemples, mais c'est aussi en anglais .

La seule chose que vous pourrez avoir en français est de l'aide sur ce forum, ce qui est déjà très intéressant.
Bonne Lecture !

[bforzeus]

Bonjour ,

djibril, dans l'exemple que vous traité, il est constitué de 3Niveau (annuaire,personne,langage), mais moi je comprend pas comment on peut atteindre un niveau encore plus haut vue que j'ai un fichier avec 6 ou 7 niveau, je veux changer le nom d'une balise qui est au 6eme niveau, j'écris le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
my @Individu = $root->children ( 'Individu');
$i = 1;
	foreach my $Prenom ( $Individu->children('Demande')->children('Personne')->children('Prenoms')->children('Prenom'))
 
		{ $Prenom->set_tag( 'Prenom'.$i); 
		$i = $i+1;
		}

mai ca na pas l'air de fonctionné.
quelqu'un pourrez me donnée quelque indication
merci a tous

[djibril]

Bonjour,

Pouvez-vous me montrer votre fichier XML et me redire ce que vous souhaitez faire ?
Il y a peut-être une façon simple de procéder pour réaliser votre programme avec XML::Twig.

[bforzeus]

Bonjour,

je cherche a modifier le nom de quelques balise, c-a-d, dans la balise <Prenoms> j'ai plusieur balise <Prenom> a l'interieur et j'aimerai modifier le nom de ses dernier pour avoir <Prenom1><Prenom2>...

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

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
<?xml version="1.0" encoding="UTF-8"?>
<Lettre>
    <Enveloppe>
       <ligne>01</ligne>
    </Enveloppe>
    <Individu>
        <Demande>
            <Personne>
                <Noms>
                    <NomF>foot</NomF>
					<NomU>ball</NomU>
                </Noms>
                <Prenoms>
                    <Prenom>AAAA</Prenom>
					<Prenom>BBBB</Prenom>
 <Prenom>CCC</Prenom>
                </Prenoms>
                <Naissance>
                    <Date>2012-06-20</Date>
                    <Lieu>
                        <Localite code="75000"/>
						<Pays>France</Pays>
                    </Lieu>
                </Naissance>
                <Sexe>Homme</Sexe>
            </Personne>
        </Demande>
    </Individu>
</Lettre>

pour cela j'ai ecrit le code suivant mai ca ne marche pas, je sais pas comment utilisé la balise children et comment atteindre la balise <Prenoms> en profondeur: mon code perl le voila

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
16
17
#!/usr/bin/perl
use XML::Twig;
 
my $t= XML::Twig->new();
  $t->parsefile( 'fichier.xml');
  my $root= $t->root;
  my @Individu = $root->children ( 'Individu');
  foreach my $Individu (@Individu) {
	$i = 1;
	foreach my $Prenom ( $Individu->children('Demande')->children('Personne')->children('Prenoms')->children('Prenom'))
 
		{ $Prenom->set_tag( 'Prenom'.$i); 
		$i = $i+1;
		}           # turn them into p
	}
open(PF, "> out.xml") or die "can't open file $!\n";
$t->print(\*PF);                            # output the document

merci d'avance de vos réponse