Discussion :

[donny]

Salut,

j'ai un script qui parse un fichier xml
modifie la valeur d'un attribut et m'affiche le resulat à l'ecran ( dans mon shell)
le truc c'est que je voudrais qu'il me l'envoi dans un fichier xml
mais je n'y arrive pas

voila mon script

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
#!/usr/bin/perl
use XML::Twig;
 
my $filename = './it2.xml';
open(FILE, '>', $filename) || die("impossible open $filename ");
 
my $t= XML::Twig->new( 
           twig_roots   => { 'top' => \&its, },    
           twig_print_outside_roots => 1,               
                      );
  $t->parsefile( 'its.xml');
 
  sub its 
    { my( $t, $price)= @_;
      my $currency=  $price->{'att'}->{'bat'};          
      if( $currency eq 'Except')
        { $usd_price= $price->text;   
 
 
          my $euro_price= $usd_price ;
          $price->set_text( $euro_price);               
          $price->set_att( VALUE => 'FINE');          
        }
 
      $price->print;                                    
    }

j'ai essayer plusieurs façon mais en vain;

$price->FILE print;

print FILE $price;

$price->print;
my $sortie=$price
print FILE $sortie;

merci

[Woufeil]

La réponse est dans la doc de ton module...
Dis toi quand même que c'est une personne qui n'a jamais utilisé ton module qui te donne la solution...

print ($optional_filehandle, %options)

Prints the whole document associated with the twig. To be used only AFTER the parse.

options: see flush.