Parsing xml pour retomber sur du xml

Version imprimable

16/08/2011, 16h37
flash21

Parsing xml pour retomber sur du xml

J'ai un fichier xml je dois via un script ouvrir, récupérer quelques infos de certaines balises et réécrire le même fichier en sortie en changeant juste 2 3 balises selon les informations que j'aurais récupéré. Comment parcourir mon xml pour récupérer le contenu de certaines balises et modifier en fin de compte le contenu de certaines balises de ce même fichier en entrée?
16/08/2011, 17h17
djibril
Bonjour,

Premièrement, merci de respecter la ponctuation lorsque vous écrivez, sinon, il est difficile de vous suivre.

Pour analyser un fichier XML, le module XML::Twig est une valeur sûre. Néanmoins, pour vous aider, il serait intéressant d'avoir un exemple de fichier XML.

Sinon, le principe est le suivant :
- j'analyse mon fichier XML avec Twig ;
- effectue les modifications en mémoire si la RAM le permet ;
- génère un nouveau fichier (généralement temporaire) ;
- puis renomme ce fichier en mon fichier original.
Voilà !

Voilà un exemple de fichier :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 <?xml version="1.0" encoding="UTF-8"?> <PFP xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="PFPV2_1.xsd"> <version>2</version> <compte>courant</compte> <mouvement>aucun</mouvement> <emetteur>banque</emetteur> <destinataire>client</client> <domiciliation> <nom>Banque Populaire</nom> <adresse>4 rue du bucheron, Cannes</adresse> <ouverture>8H30 à 12H et 14H à 17H30</ouverture> </domiciliation> <virement> <automatique>SFR</automatique> <jour_prelevement>le 05 du mois</jour_prelevement> </virement> </PFP>
Citation:

Envoyé par djibril

Bonjour,

Premièrement, merci de respecter la ponctuation lorsque vous écrivez, sinon, il est difficile de vous suivre.

Pour analyser un fichier XML, le module XML::Twig est une valeur sûre. Néanmoins, pour vous aider, il serait intéressant d'avoir un exemple de fichier XML.

Sinon, le principe est le suivant :

j'analyse mon fichier XML avec Twig ;
effectue les modifications en mémoire si la RAM le permet ;
génère un nouveau fichier (généralement temporaire) ;
puis renomme ce fichier en mon fichier original.

Voilà !

Lorsque le fichier xml est parsé,

si le nom de la banque est la banque populaire alors on change la donnée dans la balise "émetteur". Si le virement automatique est égal à SFR, on change le destinataire en mettant "client SFR" au lieu de "client". Le reste du fichier reste inchangé. Au final nous aurons un fichier comme suit :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 <?xml version="1.0" encoding="UTF-8"?> <PFP xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="PFPV2_1.xsd"> <version>2</version> <compte>courant</compte> <mouvement>aucun</mouvement> <emetteur>Banque Populaire</emetteur> <destinataire>client SFR</client> <domiciliation> <nom>Banque Populaire</nom> <adresse>4 rue du bucheron, Cannes</adresse> <ouverture>8H30 à 12H et 14H à 17H30</ouverture> </domiciliation> <virement> <automatique>SFR</automatique> <jour_prelevement>le 05 du mois</jour_prelevement> </virement> </PFP>
Le fichier final devra avoir comme extension ".modifié"

Citation:

Envoyé par djibril

Bonjour,

Premièrement, merci de respecter la ponctuation lorsque vous écrivez, sinon, il est difficile de vous suivre.

Pour analyser un fichier XML, le module XML::Twig est une valeur sûre. Néanmoins, pour vous aider, il serait intéressant d'avoir un exemple de fichier XML.

Sinon, le principe est le suivant :

j'analyse mon fichier XML avec Twig ;
effectue les modifications en mémoire si la RAM le permet ;
génère un nouveau fichier (généralement temporaire) ;
puis renomme ce fichier en mon fichier original.

Voilà !

19/08/2011, 11h43
flash21
Bonjour, Djibril.
J'ai à peu près compris comment fonctionnait l'XML Twig et il y'a quelque chose qui m'embête un peu. Dans le script "ParseurXMLTwigDom.pl" , vous réécrivez votre fichier texte en parcourant le fichier xml ligne par ligne. Dans le script "Twig xml A la twig intelligent", vous charger le stricte nécessaire. Ce que j'aimerais c'est écrire dans mon fichier de sortie les balises que j'ai chargé et traité mais aussi les autres balises qui n'ont pas été modifiées. Je cherche à éviter de faire un print de chaque balise qui n'a pas été chargé. Quelqu'un aurait une idée?
Citation:
Envoyé par djibril

Bonjour,

Premièrement, merci de respecter la ponctuation lorsque vous écrivez, sinon, il est difficile de vous suivre.

Pour analyser un fichier XML, le module XML::Twig est une valeur sûre. Néanmoins, pour vous aider, il serait intéressant d'avoir un exemple de fichier XML.

Sinon, le principe est le suivant :

j'analyse mon fichier XML avec Twig ;
effectue les modifications en mémoire si la RAM le permet ;
génère un nouveau fichier (généralement temporaire) ;
puis renomme ce fichier en mon fichier original.

Voilà !

C'est très simple à effectuer. Voici un exemple de programme qui change toutes les balises compte de ton XML et le fichier final est un fichier avec l'extension .modifie

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
#!/usr/bin/perl
use Carp;
use strict;
use warnings;
use XML::Twig;
 
my $twig = XML::Twig->new(
  pretty_print => 'indented',
  Twig_handlers => {
    'compte' => \&modifier_comptes,
  },
);
$twig->parsefile( 'TOTO.xml'); 
open my $fh, '>', 'TOTO.modifie';
$twig->print($fh);
close $fh;
 
sub modifier_comptes {
  my ( $twig, $twig_compte ) = @_;
 
  my $nom_compte = $twig_compte->text;
  # Modification
  $twig_compte->set_text( $nom_compte . ' -modifie' );
  $twig_compte->set_att( login => 'flas21' );
  return;
}

Fichier TOTO.xml

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<?xml version="1.0" encoding="UTF-8"?>
<PFP xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="PFPV2_1.xsd">
    <version>2</version>
    <compte>courant</compte>
    <mouvement>aucun</mouvement>
    <emetteur>banque</emetteur>
    <destinataire>client</destinataire>
    <domiciliation>
        <nom>Banque Populaire</nom>
        <adresse>4 rue du bucheron, Cannes</adresse>
        <ouverture>8H30 à 12H et 14H à 17H30</ouverture>
    </domiciliation>
    <virement>
        <automatique>SFR</automatique>
        <jour_prelevement>le 05 du mois</jour_prelevement>
    </virement>
</PFP>

Fichier TOTO.modifie

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<?xml version="1.0" encoding="UTF-8"?>
<PFP xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="PFPV2_1.xsd">
  <version>2</version>
  <compte login="flas21">courant -modifie</compte>
  <mouvement>aucun</mouvement>
  <emetteur>banque</emetteur>
  <destinataire>client</destinataire>
  <domiciliation>
    <nom>Banque Populaire</nom>
    <adresse>4 rue du bucheron, Cannes</adresse>
    <ouverture>8H30 à 12H et 14H à 17H30</ouverture>
  </domiciliation>
  <virement>
    <automatique>SFR</automatique>
    <jour_prelevement>le 05 du mois</jour_prelevement>
  </virement>
</PFP>

Cet exemple de code fonctionne bien, merci pour l'aide apportée. Cependant j'ai encore un petit problème. Disons que ce que je veux modifier se trouve dans la balise "nom" qui se trouve dans la balise "domiciliation". En adaptant votre script un peu, tout le contenu de la balise domiciliation est effacé. Je me retrouve du coup avec : <domiciliation>valeur modifiée</domiciliation>. Je perds les balises à l'intérieur de domiciliation. Je ne comprends pas ce qui cloche, pourtant je ne modifie que la balise nom.

Citation:

Envoyé par djibril

C'est très simple à effectuer. Voici un exemple de programme qui change toutes les balises compte de ton XML et le fichier final est un fichier avec l'extension .modifie

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
#!/usr/bin/perl
use Carp;
use strict;
use warnings;
use XML::Twig;
 
my $twig = XML::Twig->new(
  pretty_print => 'indented',
  Twig_handlers => {
    'compte' => \&modifier_comptes,
  },
);
$twig->parsefile( 'TOTO.xml'); 
open my $fh, '>', 'TOTO.modifie';
$twig->print($fh);
close $fh;
 
sub modifier_comptes {
  my ( $twig, $twig_compte ) = @_;
 
  my $nom_compte = $twig_compte->text;
  # Modification
  $twig_compte->set_text( $nom_compte . ' -modifie' );
  $twig_compte->set_att( login => 'flas21' );
  return;
}

Fichier TOTO.xml

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<?xml version="1.0" encoding="UTF-8"?>
<PFP xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="PFPV2_1.xsd">
    <version>2</version>
    <compte>courant</compte>
    <mouvement>aucun</mouvement>
    <emetteur>banque</emetteur>
    <destinataire>client</destinataire>
    <domiciliation>
        <nom>Banque Populaire</nom>
        <adresse>4 rue du bucheron, Cannes</adresse>
        <ouverture>8H30 à 12H et 14H à 17H30</ouverture>
    </domiciliation>
    <virement>
        <automatique>SFR</automatique>
        <jour_prelevement>le 05 du mois</jour_prelevement>
    </virement>
</PFP>

Fichier TOTO.modifie

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<?xml version="1.0" encoding="UTF-8"?>
<PFP xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="PFPV2_1.xsd">
  <version>2</version>
  <compte login="flas21">courant -modifie</compte>
  <mouvement>aucun</mouvement>
  <emetteur>banque</emetteur>
  <destinataire>client</destinataire>
  <domiciliation>
    <nom>Banque Populaire</nom>
    <adresse>4 rue du bucheron, Cannes</adresse>
    <ouverture>8H30 à 12H et 14H à 17H30</ouverture>
  </domiciliation>
  <virement>
    <automatique>SFR</automatique>
    <jour_prelevement>le 05 du mois</jour_prelevement>
  </virement>
</PFP>

21/08/2011, 21h16
djibril

Montre ton programme.

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
#!/usr/bin/perl
use Carp;
use strict;
use warnings;
use XML::Twig;
 
my $twig = XML::Twig->new(
  pretty_print => 'indented',
  Twig_handlers => {
    'domiciliation' => \&modifier_comptes,
  },
);
$twig->parsefile( 'TOTO.xml'); 
open my $fh, '>', 'TOTO.modifie';
$twig->print($fh);
close $fh;
 
sub modifier_comptes {
  my ( $twig, $twig_compte ) = @_;
 
  my $nom_compte = $twig_compte->field('nom');
  # Modification
  $twig_compte->set_text( $nom_compte . ' -modifie' );
  $twig_compte->set_att( login => 'flas21' );
  return;
}

Citation:

Envoyé par djibril

Montre ton programme.

21/08/2011, 22h40
djibril

Je t'ai demandé le code que tu as toi réalisé et non le mien :?
22/08/2011, 09h13
flash21

Je suis parti de ce que tu m'as proposé et j'ai viré ce que je faisais avant de demander de l'aide sur le forum.

Citation:

Envoyé par djibril

Je t'ai demandé le code que tu as toi réalisé et non le mien :?
22/08/2011, 09h25
djibril

Citation:

Envoyé par flash21

En adaptant votre script un peu, tout le contenu de la balise domiciliation est effacé. Je me retrouve du coup avec : <domiciliation>valeur modifiée</domiciliation>.

Qu'as-tu fais pour avoir ça ?
22/08/2011, 09h38
flash21

Le script que j'ai envoyé hier soir n'est pas exactement le même que celui que tu m'avais envoyé. Il y'a une différence vers la fin. C'est celui là qui donne le résultat dont tu demandes l'origine.

Citation:

Envoyé par djibril

Qu'as-tu fais pour avoir ça ?
22/08/2011, 09h58
djibril
Ok, je n'avais pas fait gaffe.
1) Lorsque tu réponds à un message, clique sur le bouton http://www.developpez.net/forums/ima...tons/reply.gif et non sur http://www.developpez.net/forums/ima...tons/quote.gif qui ne doit être utilisé qu'en cas de réel besoin. Car à force, ça alourdit les message inutilement.
Merci

2) Pour revenir à ton souci, ton problème provient de cette ligne :
Code:

1 2 3 Twig_handlers => { 'domiciliation' => \&modifier_comptes, },
Tu demandes à twig d'appeler la procédure sur la balise domiciliation. Ainsi, lorsque que twig lit cette balise, il effectue le code suivant :
Code:

1 2 3 4 my $nom_compte = $twig_compte->field('nom'); # Modification $twig_compte->set_text( $nom_compte . ' -modifie' ); $twig_compte->set_att( login => 'flas21' );
Donc, le contenu de la balise est modifié via set_text, d'où la suppression de tout ce qu'il y avait dedans. Grâce à set_att, un nouvel attribut est rajouté.

Si tu veux modifier le contenu de la balise nom, écrit ceci :
Code:

1 2 3 Twig_handlers => { 'nom' => \&modifier_comptes, },
ainsi toutes les balises nom seront modifiées. Si tu ne souhaites modifier que les balises nom contenu dans les balises domiciliation, tu peux écrire :
Code:

1 2 3 Twig_handlers => { 'domiciliation/nom' => \&modifier_comptes, },

Bonjour,

toujours dans mon problème avec le fichier xml, je suis confronté à un problème dont ou j'ai du mal à voir venir la solution. Vous comprendrez mieux avec un exemple :
Code:

1 2 3 4 5 6 sub fonction1 { print "Bonjour comment vous allez"; return; } &fonction1;
A l'affichage j'aurais :
Bonjour comment vous allez
Bonjour comment vous allez

Ce que j'aimerais c'est récupérer, c'est par exemple récupérer le nom du compte défini dans la fonction modifier_compte, dans une autre fonction. exemple modifier_compte_2. Après avoir parcouru plusieurs livres, et tutoriels j'ai du mal à faire cela. Je sais que les variables ne sont visibles que dans la fonction, mais quand je fais appel à la fonction modifier_comptes dans modifier_comptes_2, commet récupérer le nom du compte défini dans modifier_comptes?
Code:

1 2 3 4 5 6 7 8 9 sub modifier_comptes { my ( $twig, $twig_compte ) = @_; my $nom_compte = $twig_compte->field('nom'); # Modification $twig_compte->set_text( $nom_compte . ' -modifie' ); $twig_compte->set_att( login => 'flas21' ); return; }

Code:

1
2
3
4
5
6
7
sub fonction1 {
  my ($nom) = @_;
      print "Bonjour $nom, comment vous allez ?";
      return;
}
 
fonction1("flash21");

Le problème est plus complexe que ça. Le fait de mettre en paramètre flash21 suppose qu'on connait déjà à qui dire bonjour. Je vais donner un autre exemple plus clair.
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 #!/usr/bin/perl use Carp; use strict; use warnings; use XML::Twig; my $twig = XML::Twig->new( pretty_print => 'indented', Twig_handlers => { 'domiciliation' => \&modifier_comptes, }, ); $twig->parsefile( 'TOTO.xml'); open my $fh, '>', 'TOTO.modifie'; $twig->print($fh); close $fh; sub modifier_comptes { my ( $twig, $twig_compte ) = @_; my $nom_compte = $twig_compte->field('nom'); # Modification $twig_compte->set_text( $nom_compte . ' -modifie' ); $twig_compte->set_att( login => 'flas21' ); return; }
J'ai besoin de crée après dans ce script, une autre fonction nommée modifier_compte_2 dans laquelle j'utiliserais le nom du compte que j'aurais pris dans la fonction modifier_comptes.
Code:

1 2 3 4 5 6 sub modifier_compte { &modifiercomptes; print $nom_compte; }
J'ai comme message d'erreur que je ne peux pas utiliser une variable qui n'est pas déclarée.

05/09/2011, 16h32
djibril

Bon, ce n'est toujours pas clair. Le plus simple est de parler français. Concrètement, tu souhaites faire quoi ? Parllons Français, au lieu de parler Perl.
Montre un exemple de ton XML et ce que tu veux lire et obtenir.

Fichier entrée :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<?xml version="1.0" encoding="UTF-8"?>
<PFP xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="PFPV2_1.xsd">
    <version>2</version>
    <compte>courant</compte>
    <mouvement>aucun</mouvement>
    <emetteur>banque</emetteur>
    <destinataire>client</destinataire>
    <domiciliation>
        <nomBanque>Banque Populaire</nomBanque>
        <adresse>4 rue du bucheron, Cannes</adresse>
        <ouverture>8H30 à 12H et 14H à 17H30</ouverture>
    </domiciliation>
    <virement>
        <automatique>SFR</automatique>
        <jour_prelevement>le 05 du mois</jour_prelevement>
    </virement>
</PFP>

Script :

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
#!/usr/bin/perl
use Carp;
use strict;
use warnings;
use XML::Twig;
 
my $twig = XML::Twig->new(
  pretty_print => 'indented',
  Twig_handlers => {
    'domiciliation/nomBanque' => \&nombanque,
    'virement/automatique' => \&virement,
  },
);
$twig->parsefile( 'TOTO.xml'); 
open my $fh, '>', 'TOTOmodifie.xml';
$twig->print($fh);
close $fh;
 
sub nombanque {
  my ($twig, $twig_NomBanque) = @_;
  my $NomBanque = $twig_NomBanque->text;
  print $NomBanque,"\n";
 
  return;
}
sub virement
{
	&nombanque; #j'ai une erreur du style "cannot call method text". Pourquoi?
	#Je veux ici, vérifier que le nom de la banque soit égal à Banque Populaire. Si oui, je modifie la balise virement/automatique
	#du fichier de sortie
	#Le problème est que je perds le nom de la banque dès que je sors de la première fonction
 
}

Souhait fichier de sortie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<?xml version="1.0" encoding="UTF-8"?>
<PFP xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="PFPV2_1.xsd">
    <version>2</version>
    <compte>courant</compte>
    <mouvement>aucun</mouvement>
    <emetteur>banque</emetteur>
    <destinataire>client</destinataire>
    <domiciliation>
        <nomBanque>Banque Populaire</nomBanque>
        <adresse>4 rue du bucheron, Cannes</adresse>
        <ouverture>8H30 à 12H et 14H à 17H30</ouverture>
    </domiciliation>
    <virement>
        <automatique>VALEUR CHANGEE</automatique>
        <jour_prelevement>le 05 du mois</jour_prelevement>
    </virement>
</PFP>

C'est plus clair comme ça?

08/09/2011, 10h34
flash21

Quelqu'un aurait-il une idée pour la résolution de mon problème?
14/09/2011, 18h17
djibril

Dans ton exemple, VALEUR CHANGEE provient d'où ?

Voici un bout de code, je ne sais pas si ça t'aidera :

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
#!/usr/bin/perl
use Carp;
use strict;
use warnings;
use XML::Twig;
 
my $twig = XML::Twig->new(
  pretty_print => 'indented',
  Twig_handlers => {
    'domiciliation/nomBanque' => \&nombanque,
    'virement/automatique' => \&virement,
  },
);
$twig->parsefile( 'TOTO.xml'); 
open my $fh, '>', 'TOTOmodifie.xml';
$twig->print($fh);
close $fh;
 
sub nombanque {
  my ($twig, $twig_NomBanque) = @_;
 
  print "Je suis dans la balise ",$twig_NomBanque->name,"\n";
 
  my $NomBanque = $twig_NomBanque->text;
  print "==> ",$NomBanque,"\n";
 
  return;
}
sub virement {
  my ($twig, $twig_automatique) = @_;
  print "Je suis dans la balise ",$twig_automatique->name,"\n";
  # Cherchons le nom de la Banque
  # Cherchons le frere du parent de virement de type contenant nomBanque
  my $twig_parent = $twig_automatique->parent;
 
  # Cherchons le frere de virement (domiciliation)
  my $twig_NomBanque;
  if ( defined $twig_parent ) {
    if ( my $twig_domiciliation = $twig_parent->prev_sibling('domiciliation') ) {
      # Cherhons la banque
      if ( my $banque = $twig_domiciliation->field('nomBanque') ) {
        print "Ma banque : $banque\n";
        print "Automatique :  ", $twig_automatique->text, "\n";
      }
    }
 
  }
 return;
}

Qui te donne comme résultat :

Code:

1
2
3
4
5
Je suis dans la balise nomBanque
==> Banque Populaire
Je suis dans la balise automatique
Ma banque : Banque Populaire
Automatique :  SFR