Discussion :

[ellgafsi]

salut,

jai un code par exemple comme ca:

Code :

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

1
2
3
4
5
 
<test>
   <information1>salut</information1>
    <information2>camarades!</information2>
</test>

je veux changer le nom de <information1> a <salutation> par exemple
bien sur le endtag dois chager aussi (ici </information1> a </salutation>)

merci!

[Jasmine80]

Regarde sur le CPAN si il n'existe pas un module permettant cela.
CPAN

Sinon, tu peux utiliser une expression régulière de substitution.

FAQ : les fichiers
FAQ : ExpReg

[ellgafsi]

merci Jasmine, je suis deja entrain de chercher.

[Jedai]

XML::Twig sait faire ça très facilement, de plus il y a un excellent tutorial qui va avec.

--
Jedaï

[ellgafsi]

salut tout le monde,
j ai ecris ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/env perl -w
use strict;
use XML::Twig;
 
 
my $xmlfile= new XML::Twig; #construir le twig
$xmlfile->parsefile( "MeinXML.xml"); #parser le fichier
 
$title= $root->child( 'Details_M'); # avoir le tag <Details_M>
$title->set_tag( 'Details');        #  la chager en <Details>
 
$xmlfile->print;  #sortir le fichier modifier

il me donne des messages d erreurs dans la cmd:

Code :

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

1
2
3
4
Global symbol "$title" requires explicit package name at U:\perl tutorial\twig-test.pl line 9.
Global symbol "$root" requires explicit package name at U:\perl tutorial\twig-test.pl line 9.
Global symbol "$title" requires explicit package name at U:\perl tutorial\twig-test.pl line 10.
Execution of U:\perl tutorial\twig-test.pl aborted due to compilation errors.

merci pour l aide

[Jasmine80]

Tu dois déclarer tes variables avec 'my'.

[ellgafsi]

Bonjour Jasmine, merci pour votre aide.

Est ce que je suis dans le bon sens?

[ellgafsi]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/env perl -w
use strict;
use XML::Twig;
 
 
my $xmlfile= new XML::Twig; #construir le twig
$xmlfile->parsefile( "MeinXML.xml"); #parser le fichier
 
my $title= my $root->child( 'Details_M'); # avoir le tag <Details_M>
$title->set_tag( 'Details');        #  la chager en <Details>
 
$xmlfile->print;  #sortir le fichier modifié

j ai ces messages maintenant

Code :

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

1
2
 
Can't call method "first_child" on an undefined value at U:\perl tutorial\twig-test.pl line 9.

qu un peux me dire si je suis dans la bonne voie.
Merci.

[Jasmine80]

Tu dois déclarer $root avant, car là, tu appelles la fonction child sur une valeur indéfinie.

Code :

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

my $title= my $root->child( 'Details_M'); # avoir le tag <Details_M>

Je ne connais pas du tout ce module mais voila comment procéder d'après la documentation :

Code :

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

1
2
3
4
5
  my $t= XML::Twig->new();
  $t->parse( '<d><title>title</title><para>p 1</para><para>p 2</para></d>');
  my $root= $t->root;
  $root->set_tag( 'html');              # change doc to html
  $title= $root->first_child( 'title'); # get the title

[ellgafsi]

j ai modifier mon code le facon suivante:

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
 
use strict;
use XML::Twig;
 
my $twig= new XML::Twig;
 
$twig->parsefile( "output.xml");   
my $root= $twig->root;       
my @layer= $root->children('MinValue');    
 
foreach my $layer (@layer)
{
$layer ->set_tag('Min');       
}  
$twig->print;

je veux modifier le nom de balise MinValue a Min par 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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
<?xml version="1.0" encoding="UTF-8" ?> 
  <!DOCTYPE xml (View Source for full doctype...)> 
- <xml>
- <Layer>
  <layer_name>LayerIn_Abs</layer_name> 
  <Signal_Name /> 
  <CAN_Mapping /> 
  <minValue /> 
  <maxValue /> 
  <Label_Roh /> 
  <Time /> 
- <Bot>
  <Bot_Name /> 
  </Bot>
  <quantisation /> 
  <Offset /> 
  <minValue /> 
  <maxValue /> 
  <Invalid /> 
  </Layer>
- <Layer>
  <layer_name>LayerIn_Acclivity</layer_name> 
  <Signal_Name /> 
  <CAN_Mapping /> 
  <minValue /> 
  <maxValue /> 
  <Label_Roh /> 
  <Time /> 
- <Bot>
  <Bot_Name /> 
  </Bot>
  <quantisation /> 
  <Offset /> 
  <minValue /> 
  <maxValue /> 
  <Invalid /> 
  </Layer>
- <Layer>
  <layer_name>LayerIn_AscErr</layer_name> 
  <Signal_Name /> 
  <CAN_Mapping /> 
  <minValue /> 
  <maxValue /> 
  <Label_Roh /> 
  <Time /> 
- <Bot>
  <Bot_Name /> 
  </Bot>
  <quantisation /> 
  <Offset /> 
  <minValue /> 
  <maxValue /> 
  <Invalid /> 
  </Layer>

mais ca marche pas
ou est ma faute?
merci pour l aide

[ellgafsi]

ca me me fais plaisir de lire vos suggestions.
merci.

[ellgafsi]

resolu!!!

Merci pour votre aide

[Jasmine80]

N'oublie pas de cocher la case 'résolu' afin de clore cette discution. Il serait également bien venu, que tu montres le code qui t'a permis de résoudre ton problème, afin d'aider les éventuelles personnes qui pourraient se poser la même question.

[ellgafsi]

salut Jasmine,

Il serait également bien venu, que tu montres le code qui t'a permis de résoudre ton problème, afin d'aider les éventuelles personnes qui pourraient se poser la même question.

si le xml est comme ca:

Code :

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

1
2
3
4
<test>
   <information1>salut</information1>
    <information2>camarades!</information2>
</test>

le code pour transformer information1 a salutation est comme ca:

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
 
use strict;
use XML::Twig;
 
&as_xml(shift @ARGV);
 
sub as_xml{
my %change=
  ( information1 => salutation,
  );
 
# let's build the start_tag_handlers
my $handlers;
while( my( $old_tag, $new_tag)= each( %change) )                    # each handler
  { $handlers->{$old_tag}= sub { $_[1]->set_gi( $new_tag); }; }     # changes a tag
 
 
my $twig= new XML::Twig( start_tag_handlers => $handlers,
                         twig_handlers      => 
                             { '_all_' => sub { $_[0]->flush; } },  # flush all elements
                       ); 
 
$twig->parsefile(shift);    # process the twig
}

pour mieux comprendre voila le lien dont il m a beaucoup aider (merci Jedai )
http://xmltwig.com/xmltwig/tutorial/yapc_twig_s7.html