Discussion :

[SearchProblem]

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 :

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
 
 
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();
	}
}

[Lolo78]

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.

[SearchProblem]

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é.

[Jedai]

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 :

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

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ï

[6ril23]

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