Supprimer un Node avec XML::Twig

Bonjour tout le monde, ma question est simple mais elle me casse la tête depuis un bon moment. J'utilise XML::Twig dans mon parsing XML et je veux tout simplement supprimer un nœud XML après l'avoir identifier j'utilise la fonction delete de cette bibliothèque. Voilà le code que j'utilise:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

my @ParameterNodes = $twig_notoyage->get_xpath("//Parameters/Parameter"); foreach my $parameter(@ParameterNodes) { my $UsefullParam = "FALSE"; my $ParamShortName = $parameter->att('ShortName'); for (my $ind = 0; $ind < scalar(@ecran_tab) ; $ind++) { if($ParamShortName eq $ecran_tab[$ind]) { $UsefullParam = "TRUE"; } } if ($UsefullParam eq "FALSE") { $parameter->delete(); } }

---

Et quelle est la question?

Peut-être que ça ne marche pas, mais tu ne nous dis rien. Et si ça ne marche pas, que se passe-t-il? Le script ne compile pas? Tu as un warning ou un message d'erreur? Ou ça à l'air de marcher et ça ne fait rien? On ne peut pas trop deviner si tu ne dis pas...

Bref, donne des précisions, cela nous aidera sans doute à t'aider.

Il n'y a pas de warning ou un message d'erreur le code tourne correctement. J'ai même testé si j'arrive à accéder au dernier bloc de if qui permet de supprimer le nœud XML avec un affichage sur la console, l'affichage s’effectue correctement.
Le problème vient visiblement de l'instruction $parameter->delete(); qui ne me donne pas mon résultat souhaité.

Citation:

---

Le problème vient visiblement de l'instruction $parameter->delete(); qui ne me donne pas mon résultat souhaité.

---

Et quel est ce résultat ? Veux-tu dire que delete() ne supprime pas le nœud dans l'arbre en mémoire ? Il est encore présent lorsque tu l'imprimes avec ->print() à la fin du programme ? Ou croyais-tu que ce delete() allait modifier le fichier d'origine ?

Au fait, ton code est vraiment mauvais (en particulier le 'TRUE' et 'FALSE'... utiliser des chaînes de caractères comme booléens est une très mauvaise habitude), tu pourrais faire mieux :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

my %ecran_tab_keys = map { $_ => 1 } @ecran_tab;   my @ParameterNodes = $twig_notoyage->get_xpath("//Parameters/Parameter"); foreach my $parameter (@ParameterNodes) { if ( not exists $ecran_tab_keys{$parameter->att('ShortName')} ) { $parameter->delete(); } }   # ...   $twig_notoyage->print(); # les noeuds supprimés apparaissent-il dans la sortie ?

---

--
Jedaï

Je ne connais pas du tout XML:Twig mais en tapant rapidement "delete xml node perl" dans google, il semble qu'il ne faut pas utiliser delete mais splice (même si les exemples trouvés sont pour XML:SMART et XML:Simple ça doit être semblable)

http://www.codingforums.com/perl-cgi...node-perl.html