Affecter valeur dans tag XML

Version imprimable

bonjour a tous,

je dois changer la valeur du tag 'status' dans un fichier XML.
ci joint le code

Code:

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
 
use XML::Twig;
 
my $ficDocXML ='C:/XML_mail/recipients.xml';
my $ficOutXML	= 'C:/XML_mail/recipients_out.xml';
my $FH;
 
open ($FH,">$ficOutXML");
 
my $twig= new XML::Twig;
 
$twig->parsefile($ficDocXML);    # build the twig
my $root= $twig->root;           # get the root of the twig (stats)
my @players= $root->children;    # get the player list
 
 
foreach my $player (@players)
 { my $status  = $player->first_child('status')->text;    # get the text of status
   print "status : $status\n";
   $player->first_child('status')->text = 3;         # bug....
 }
 
$twig->print;
$twig->print($FH);
print "\n\n";
exit(0);

le lecture est bonne , mais pas l'affectation :oops:

merci pour votre aide

La syntaxe que tu tentes d'utiliser (affecter une valeur à un appel de fonction) est possible en Perl, mais peu pratique (entre autre dans ce cas ça ne permettrait pas de réaliser automatiquement l'échappement de tous les caractères spéciaux ( '<', '&' ...) passés dans la chaîne de caractère). C'est pourquoi XML::Twig ne supporte pas cette syntaxe et offre à la place la fonction set_text.

Donc ton code serait plutôt :
Code:

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 use strict; use XML::Twig; my $ficDocXML ='C:/XML_mail/recipients.xml'; my $ficOutXML = 'C:/XML_mail/recipients_out.xml'; my $FH; open ($FH,">$ficOutXML"); my $twig= new XML::Twig; $twig->parsefile($ficDocXML); # build the twig my $root= $twig->root; # get the root of the twig (stats) my @players= $root->children; # get the player list foreach my $player (@players) { my $estatus = $player->first_child('status'); my $status = $estatus->text; print "status : $status\n"; $estatus->set_text('3'); } $twig->print; $twig->print($FH); print "\n\n"; exit(0);
--
Jedaï

merci Jedai => c'est nickel:king:

je mets le code final ici pour aider peut être quelqu'un d'autre dans le cas du CDATA

Code:

1
2
3
4
5
6
7
8
 
    if ($ErrorByMail ne '0'){
      my $estatus  = $player->first_child('status');    # get the text of status
      my $emessage  = $player->first_child('message');    # get the text of message
      $emessage->set_cdata($ErrorMsg);   # set the message in CDATA
      $estatus->set_text($ErrorByMail);  # set the text of status
      $nbMailKO++;
}

le résultat est top (l'erreur smtp est bien incluse dans un CDATA alors qu'au départ c'est une balise texte normale..

Code:

1
2
3
4
5
6
7
8
9
10
 
- <files>
  <file>C:/sql.pdf</file> 
  <file>D:/test.xml</file> 
  </files>
- <message>
- <![CDATA[  erreur STMP serveur fails
  ]]> 
  </message>
  <status>2</status>