Perl

[Résolu][Perl] XML::DOM Comment avoir une belle indentation?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu][Perl] XML::DOM Comment avoir une belle indentation?

Sethenssen

Bonjour,

Mon but est de créer un fichier XML de A à Z
Je n'ai que XML::DOM d'installé sur les serveurs.

Je vais donc partir d'un exemple que j'ai récupéré du Net mais le problème est que le résultat ne s'affiche que sur une seule ligne.
Comment faire pour avoir une belle indentation?

Voici le code:

Code :

#!/usr/bin/perl
use strict;
use warnings;
use Date::Format;
use XML::DOM;
my $time = time();
my $ctime = time();
my $year = time2str("%Y",$time);
my $month = time2str("%m",$time);
my $day = time2str("%d",$time);
# create an XML::DOM::Document object
my $doc = XML::DOM::Document->new();
# create the root element of the document
my $root = $doc->createElement('date');
# To create a simple element:
# 1. create the element node and set attribute
# 2. create the text node
# 3. append the text node to the element node
# 4. append the element just created to its parent
# 1. create the element node and set attribute
my $year_elem = $doc->createElement('year');
$year_elem->setAttribute('ctime',$ctime);
# 2. create the text node
my $year_text = $doc->createTextNode($year);
# 3. append the text node to the element node
$year_elem->appendChild($year_text);
# 4. append the element just created to its parent
$root->appendChild($year_elem);
# now do the month, and day
my $month_elem = $doc->createElement('month');
$month_elem->appendChild($doc->createTextNode($month));
$root->appendChild($month_elem);
my $day_elem = $doc->createElement('day');
$day_elem->appendChild($doc->createTextNode($day));
$root->appendChild($day_elem);
open(TOP, ">", "/data/scripts/bou.xml" );
print $root->toString(), "\n";
print TOP $root->toString(), "\n";
close(TOP);
__END__

Message édité par Sethenssen le 22-12-2013 à 15:34:14

Publicité

gilou

Modérateur
Modzilla

:hello: Bonjour,

Il va te falloir utiliser un module un peu plus complet, heureusement, il n'y a presque pas de code à changer.
Si tu remplaces XML::DOM par XML::LibXML dans ton code:

use XML::DOM; --> use XML::LibXML;
...
my $doc = XML::DOM::Document->new(); --> my $doc = XML::LibXML::Document->new();

ça fait la même chose que ton code actuel, sauf que avec XML::LibXML, la méthode toString() a un fonctionnement variable en fonction du paramètre que tu lui passe, et si tu fais en plus la modification suivante pour lui passer une valeur de 1 comme paramètre:

print $root->toString(), "\n"; --> print $root->toString(1), "\n";
print TOP $root->toString(), "\n"; --> print TOP $root->toString(1), "\n";

tu vas avoir la mise en ligne et l'indentation, c'est magique...
Et tu peux même faire appel à XML::LibXML::PrettyPrint si tu veux contrôler finement l'indentation.

A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

gilou

Modérateur
Modzilla

Note: Si tu n'as pas la possibilité d'utiliser XML::LibXML, c'est assez mort, XML::DOM n'est pas prévu pour cela, la seule possibilité pratique (a part tout réécrire en gérant un parcours récursif de ton arbre DOM, ce qui est la réinvention de la roue et est relativement lourd) est d'écrire dans une variable le fichier xml puis de reparser avec un module qui permette de faire du pretty print (il serait surprenant que tu n'aies pas XML::Tidy d'installé par exemple).
A+,

Message édité par gilou le 22-12-2013 à 15:10:48

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

Sethenssen

Merci Gilou,
Je vais enquiquiner mes admins sys pour qu'ils m'installent XML::LibXML
Réinventer la roue n'est effectivement pas prévu au programme

gilou

Modérateur
Modzilla

Oui, surtout que tu as déjà des modules pas si courants sur ton serveur: Date::Format est pas dans la liste des modules pré-compilés de ActivePerl par exemple.
Donc tes admins doivent savoir gérer cela.
A+,

Message édité par gilou le 23-12-2013 à 19:38:37

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

FORUM HardWare.fr

Programmation

Perl

[Résolu][Perl] XML::DOM Comment avoir une belle indentation?

Sujets relatifs
split + perl	perl tk getOpenFile
[PERL] Probleme avec module Chart::Gnuplot	perl + TK
[Perl] CGI qui parse le STDIN n'importe comment	perl + xml
[Perl] Utilisation correcte de timeout_call	Fusionner plusieurs fichiers XML avec la même structure
Préprod/Prod, cpan, activestate, intégration librairies	[perl] process defunct avec fork et exec
Plus de sujets relatifs à : [Résolu][Perl] XML::DOM Comment avoir une belle indentation?

Page générée en 0.069 secondes