Discussion :

[knebhi]

Bonjour,

J'ai un fichier XML qui se présente comme cela

Code :

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

1
2
3
<closer>             <signed>
Pierre TARIBO
</signed>           </closer>

Je souhaiterai modifier la structure XML avec un script Perl mais j'ai un soucis au niveau des retours chariots.
En fait, pour les éléments closer et pour ce fils de veux tout mettre sur une même ligne afin de réaliser mon traitement.
Ce que je souhaite obtenir c'est :

Code :

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

<closer><signed>Pierre TARIBO</signed></closer>

Je n'y arrive pas.
Je précise que je travaille sous Windows et que ce sont donc des retours chariots Windows.

Merci

[Katachana]

Regarde les RegExp , et supprimer les \n et \t , :

Code :

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

1
2
3
$chaine =~ s/\n+ //g;
$chaine =~ s/\r+ //g;
$chaine =~ s/\t+ //g;

[Jasmine80]

A ta place, j'essaierais de lire le fichier ligne par ligne, de garder en mémoire le bloc à modifier compris dans tes balises closer et de formater ce bloc en supprimant les espaces avant de l'écrire dans ton fichier de sortie.

Un script de ce genre :

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
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
#!/usr/local/bin/perl
 
 
 
use strict;
use warnings;
 
 
 
open my $infile, '<', 'test.xml' or
    die "Unable to open input xml file : $!";
 
open my $outfile, '>', 'result.xml' or
    die "Unable to open input xml file : $!";
 
my $ok = 1;
my $regroupement;
 
while (my $line = <$infile>){
 
   # on récupère la première ligne du bloc à modifier
   if ($line =~ m{<closer>}){
        chomp $line;
        $regroupement = $line;
        $ok = 0;
   }
   # on récupère la dernière ligne du bloc à modifier
   elsif ($line =~ m{</closer>}){
         $regroupement .= $line;
 
         # on supprime les espaces excédentaires compris entre > et <
         $regroupement =~ s/>\s*</></g;
 
         # écriture du bloc remis sur une seule ligne
         print $outfile $regroupement;
         $ok = 1;
   }
   # si ok est à 0 cela signifie qu'on est dans une ligne à modifier
   # on récupère donc cette ligne
   # on n'écrit donc pas dans le fichier de sortie
   if ($ok == 0){
        chomp $line;
        $regroupement .= $line;
   }
   # si ok est à 1, cela signifie qu'on est dans une ligne à garder telle quelle
   # on l'écrit dans le fichier de sortie
   if ($ok == 1){
        print $outfile $line;
   }
}

[knebhi]

J'ai testé ton code sur mon fichier xml Jasmine.

J'obtient ceci :

Code :

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

1
2
<closer><closer><signed>Lysiane GANOUSSE</signed></closer>
            </closer>

La balise closer d'origine n'est pas supprimée.

Merci pour le code il est quasi parfait. je vais voir ce que je peux changer pour avoir un bon résultat.

[Jasmine80]

La balise closer d'origine n'est pas supprimée.

La balise ouvrante closer est récupérée dans ce bloc

Code :

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

1
2
3
4
5
6
   # on récupère la première ligne du bloc à modifier
   if ($line =~ m{<closer>}){
        chomp $line;
        $regroupement = $line;
        $ok = 0;
   }

Il faut utiliser une expression régulière afin de ne pas récupérer toute la ligne et si la ligne ne contient que la balise, c'est encore plus simple, il suffit de ne rien récupérer.

Code :

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

1
2
3
4
   if ($line =~ m{<closer>(.*)}){
        $regroupement = $1;
        $ok = 0;
   }

[thierry.chich]

Dans un cas comme ça, je charge le fichier xml en mémoire avec XML::Simple, et après, je l'écris comme je veux, vu que ce sera une structure de données chargée en mémoire.

[knebhi]

J'ai toujours le même soucis mais cette fois avec la balise de fermeture

Code :

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

</closer>

J'ai tout sur une même ligne mais la balise de fermeture est double, exemple :

Code :

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

1
2
<closer><signed> P. Taribot </signed> </closer>
</closer>

[Jasmine80]

J'ai toujours le même soucis mais cette fois avec la balise de fermeture

Code :

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

</closer>

J'ai tout sur une même ligne mais la balise de fermeture est double, exemple :

Code :

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

1
2
<closer><signed> P. Taribot </signed> </closer>
</closer>

Quel script utilises-tu? Ne peux-tu pas l'adapter?

[knebhi]

J'ai utilisé celui que tu m'a proposé en tentant de l'adapter mais j'ai beaucoup d'erreur et je ne parviens pas à éliminer les balises redondantes;

Pense tu que c'est possible en utilisant un module perl qui fait du xml?

[Jasmine80]

J'ai utilisé celui que tu m'a proposé en tentant de l'adapter mais j'ai beaucoup d'erreur et je ne parviens pas à éliminer les balises redondantes;

Pense tu que c'est possible en utilisant un module perl qui fait du xml?

C'est toujours mieux d'utiliser un module existant déjà. As-tu regardé XML::Simple que thierry.chich a proposé?

[knebhi]

Je vais y jeter un coup d'oeil...

Si j'ai un soucis je te demanderai merci

[knebhi]

Alors j'ai trouvé une solution qui évite tout script et qui est efficace à 100%.
Alors il suffit d'indenter le fichier XML ; pour ma part ayant quelques fichiers concernés j'ai fais ça par le biais d'Oxygen XML.
Cependant, la question est de savoir quels sont les outils qui permettent d'indenter une grande quantité de fichiers (comme XMLLINT par exemple.)?
j'ai testé cet utilitaire en faisant la commande :

Code :

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

xmllint --format fichier.xml

mais ça ne fonctionne pas comme avec oxygenXML


MERCI