Discussion :

[Jasou62114]

Salut à tous,
Bon c'est pas le premier message que je met et que je doit bassiner tout le monde avec mes soucis perl xml.
Mais là j'ai un problème de regex.

J'ai ceci en exemple :

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
 
#!/usr/bin/perl -w
 
use Data::Dumper;
use XML::XPath;
 
my $xml = new XML::XPath->new('test.xml');
 
#balise recherchée
my $rech = $xml->find("//title");
 
my @words;my @res;
 
if(my @nodes = $rech->get_nodelist){
	@words = map($_->string_value, @nodes);
}
 
for(my $i=0;$i<2;$i++){
	print "balise $i : $words[$i] \n";
	if("$words[$i]" eq "Harry Potter"){
		my $file = $words[$i];
 
		print "ici file : $file\n ";
 
		my $newfile = 'Harry Torpeur';
 
		print "ici newfile : $newfile\n";
 
		$ligne =~s/$file/$newfile/g;
 
		print "c passé en douceur  lol \n";
	}
}
print "stop \n";

et j'ai ma regex qui ne fonctionne pas.

Code :

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

$ligne =~s/$file/$newfile/g;

J'ai beaucoup de mal avec perl et la manipulation xml, c'est la première activité que je fait dans ce langage.
Qu'est ce qui ne va pas?
Merci beaucoup de vos réponses futures.

[Jedai]

Tu appliques ta regex à $ligne, mais j'ai beau cherché, c'est le seul endroit dans ton script où $ligne apparaît... Il y a donc comme un petit problème, non ?

Par ailleurs tu devrais utiliser le pragma "strict", consulte notre FAQ sur comment écrire du code Perl propre.

--
Jedaï

[Jasou62114]

oui oui $ligne n'apparaît que là je le sait, j'ai pas besoin de l'afficher car quand je veux déjà lancer ça, cela ne marche pas il me marque un message d'erreur.
Mais ça va j'ai réussi à faire le changement ^^

Code :

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

1
2
3
 
$words[$i] =~ s/$file/$newfile/;;
print 'voici le résultat : '.$words[$i];

Maintenant il me reste à enregistrer ce changement dans le fichier XML. Et là..
jocker

j'ai vu un XML simple, mais je ne sais pas j'aime pas car j'ai pas vu grand chose de "simple" avec ça.

[Jedai]

XML::Twig devrait faire ça en quelques lignes, je t'encourage fortement à consulter son didacticiel.

--
Jedaï

[Jasou62114]

merci beaucoup...
je vais voir ca et si je n'y arrive pas.. bah.. heu.. j'repasserais faire un tour ^^

[Jasou62114]

Yessss j'ai réussi à récupérer le bon noeud XML, je réussi à en créé un avec une valeur à l'intérieur, mais je n'arrive pas à changer un noeud existant, es ce qu'il existerait quelque chose avec XML::Twig:Elt qui permettrait de remplacer une valeur, ou de rechercher un élément précis?

[Jedai]

Si tu cherches dans les exemples du didacticiel, tu verras que tu as la fonction set_text() pour changer le contenu d'un élément, par ailleurs quand tu crées un élément le second argument du constructeur est le contenu de l'élément.
Pour chercher un élément précis, tu peux utiliser du XPath dans les handlers, voir section 4.7 du didacticiel.

--
Jedaï

[Jasou62114]

merci beaucoup!!