Discussion :

[serge0934]

bonjour a tous,

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

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

merci pour votre aide

[Jedai]

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 :

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
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ï

[serge0934]

merci Jedai => c'est nickel

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

Code :

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

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 :

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

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>