Perl + Twig => operations sur fichier XML

Bonjour à tous,;)

Je souhaite traiter un fichier XML et le modifier si nécessaire.

Voici les opérations possibles :
1) Modification d'une valeur pour un élément si celle-ci est erronée
2) ajout d'un nouvel élément si celui n'est pas trouvé dans le fichier XML

Pour le 1), je n'ai pas de problème, j'arrive bien à modifier une valeur, après avoir déterminé l'élément et sa valeur...

Pour le 2), je n'arrive pas à trouver un moyen de détecter si une balise existe bien dans mon fichier XML.
idéalement, j'aimerais pouvoir faire le traitement suivant :
a) on cherche la balise dans le fichier
b) si elle existe alors on vérifie sa valeur et on modifie si nécessaire
c) si elle n'existe pas, on crée le couple <element>valeur</element> dans le fichier XML


Voici un exemple simplifié de mon fichier XML :

Code:

---

1 2 3 4 5 6 7

<serveur> <hostname>toto</hostname> <network> <interface nic="eth0" ip="10.0.0.10" /> </network> </serveur>

---

Ainsi, j'aimerais pouvoir rajouter dans mon fichier

Code:

---

<interface nic="eth1" ip="10.0.0.11" />

---

après avoir vérifié que cet élément dont l'attribut nic vaut eth1 n'existe pas dans mon fichier

Au final, le fichier XML en sortie :

Code:

---

1 2 3 4 5 6 7 8

<serveur> <hostname>toto</hostname> <network> <interface nic="eth0" ip="10.0.0.10" /> <interface nic="eth1" ip="10.0.0.11" /> </network> </serveur>

---

Si quelqu'un a une piste ... ca m'arrangerait grandement :king:

Et bien en utilisant XML::Twig, il suffit de récupérer le twig pour serveur/network et vérifier la liste de ses enfants, si elle contient l'élément que tu veux tu le modifies, sinon tu le crées et tu le rajoute aux enfants du twig. Laquelle de ces étapes te pose problème ?

--
Jedaï

A vrai dire, j'ai réussi à trouver un début de réponse en utilisant get_xpath, mais je me doutais bien que cette solution n'était pas la meilleure.


Quand tu parles de twig, tu fais référence au twig_handlers ?

Par exemple, je devrais faire :

Code:

---

$twig= new XML::Twig(twig_handlers => { "/serveur/network" => \&network}

---

Code:

---

1 2 3 4 5

sub network { traitement pour chercher, modifier/créer mon élément }

---

Est-ce que j'ai bon ?

De plus, est-il possible d'insérer des variables dans le twig_handlers ?

exemple :

Code:

---

$twig= new XML::Twig(twig_handlers => { "/serveur/network/interface[@nic=$mavariable]" => \&network}

---

je suppose que la syntaxe n'est pas bonne mais dans le mêm esprit, est-ce possible ?

Ce que je ne saisis pas, c'est comment mettre en place intelligement une série de twig_handlers qui auront pour rôle de vérifier que chaque élément existe, que chaque élément dont un attribut (ex: nic) vaut une variable présente en perl.

Faut-il créer autant de twig_handlers que de vérification ?
ou une routine plus simple existe ?

merci ;)

Citation:

---

Envoyé par Jedai

Et bien en utilisant XML::Twig, il suffit de récupérer le twig pour serveur/network et vérifier la liste de ses enfants, si elle contient l'élément que tu veux tu le modifies, sinon tu le crées et tu le rajoute aux enfants du twig. Laquelle de ces étapes te pose problème ?

--
Jedaï

---

Pour répondre à ta question Jedaï, les étapes qui me posent problème sont :
- Comment détecter que /serveur/network n'existe pas ? que /serveur/network/interface n'existe pas ?
- Comment créer et rajouter aux enfants du twig le nouvel élément.

merci ;)