Discussion :

[cougar5]

Bonjour,

Je souhaite à partir d'un fichier xml source contenant de nombreuses balises, en supprimer certaines en fonction de leur contenu...
Je m'explique :

Voici une petite partie de la structure du mon fichier xml source que j'ai récupéré via le module xml::simple

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
 
$VAR1 = {
          'BODY' => {
                    'SLU' => {
                             'TOTO' => {
                                          'XXXX' => 'xx'
                                       },
 
 
                             'LIST' => {
                                         'RESULT' => [
                                                {
             |                                     'AAAAA' => {},
             |                                     
             |                                     'BBBBB' => {
             |                                                '11111' => '00:00',
             |                                                '22222' => {
             |                                                         'BB' => 'bb',
             |                                                         'BBB' => 'bbb'
             |                                                       },
             |                                                },
             |                                                 
             |                                      'CCCCC' => {
             |                                                  '11111' => {
             |                                                               'ddd' => {
             |                                                                       'ee' => '00',
'RESULT'1|                                                                       'ff' => {},
             |                                                                      },
             |                                                                      
             |                                                              'eeee' => 'A/B',
             |                                                               'fff' => {},
             |                                                               }
             |                                                               
             |                                                   }
             |                                    },
 
 
                                                  {
             |                                     'AAAAA' => {},
             |                                     'BBBBB' => {
             |                                                '11111' => '0000',
'RESULT'2|                                                '22222' => { ...
             |                                                			
             |                                                			}
             |                                    ...
             |                                		 ...
             |                                    ...
                                                 ...
'RESULT'x|                                    ...
             |                                    
                                                 ]
 
                                       ...

L'entête xml de mon fichier destination ne changera pas, jusqu'aux nombreuses balise <RESULT>, en effet, en fonction du contenu d'un élément présent dans une balise <RESULT>, je souhaite supprimer l'ensemble du contenu de la balise.

Voici le code que j'ai commencé, j'arrive bien à interroger le contenu des sous balises présentes dans mes balises <RESULT>, mais je n'arrive pas à reconstruire un fichier xml avec la même structure.

N'ayez pas peur du code, je tente de m'améliorer , je ne maitrise pas encore assez les tables de hashages

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
 
use XML::Simple;
 
use Data::Dumper;
 
open(OUT,"> test.txt") or die("Impossible d'ouvrir test.txt\n");
 
@Tab = ();
 
$xml = new XML::Simple;
 
$ref = $xml->XMLin('test.xml');
 
foreach $value	(@{$ref->{BODY}->{SLU}->{LIST}->{RESULT}})	{
 
	$BBBBB = $value->{BBBBB};
 
	$CCCCC = $value->{CCCCC};
 
 
	#SI OK, je souhaite conserver la structure ('AAAAA','BBBBB','CCCCC')  #dans un mon futur fichier xml
	if (($BBBBB->{22222}->{BB} eq "bb") && (($CCCCC->{11111}->{eeee}) eq "A/B"))		{  
 
				push(@Tab,$value);
 
 
	}
 
 
}
 
 
#Reconstruction d'un fichier xml avec ce qui m'interesse	
$xml = new XML::Simple (NoAttr=>1, RootName=>'data');
 
$data = $xml->XMLout(\@Tab);
 
print Dumper($data);

Merci beaucoup pour votre aide.

CC

[cougar5]

Re,

Je viens de décomposer chaque valeur de mon tableau @Tab comme ceci :

Code :

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

1
2
3
4
5
6
7
8
 
 
foreach $bloc(@Tab)	{
 
			$$NEWTAB{keys %{$_}} = $bloc; #===> Decomposition du hash
 
 
}

Seulement lorsque je lance la commande :

Code :

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

 print Dumper($NEWTAB);

en dehors de ma boucle foreach, il ne me sort que le dernier élément. (ce qui est biensur logique (c'est une table de hashage))

Comment pourrai je faire pour tout afficher d'un coup ?
Et une fois ok, comment replacer le tout dans un fichier xml différent avec les entetes du fichier xml d'origine ?

Merci,

CC

[cougar5]

J'ai avancé un peu.
Un insérant chaque retour de ma boucle foreach dans un tableau @RETOUR, j'arrive maintenant à récupérer toutes les balises qui m'interesse.

Code :

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

1
2
3
4
5
6
7
 
foreach $bloc(@Tab)	{
 
    @RETOUR[$w] = $$NEWTAB{keys %{$_}} = $bloc; #===> Decomposition du hash
    $w++;
 
}

J'affiche ensuite la structure par la commande :

Code :

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

1
2
 
print Dumper(\@RETOUR);

Mon problème maintenant est de pouvoir créer un fichier XML avec la même entête que mon fichier d'origine, plus, les balises que je viens de récupérer dans @RETOUR ...

Je ne sais pas si j'ai été clair

Pourriez vous m'orienter , s'il vous plait.
Vos remarques sont les bienvenues.

Merci,

CC

[Jedai]

Personnellement, à ta place je m'orienterais plus vers XML::Twig : XML::Simple c'est sympa pour les cas les plus simples de lecture de fichier XML, éventuellement pour modifier un tout petit peu le contenu texte... Mais pour faire des manipulations comme tu le souhaites, c'est la croix et la bannière pour obtenir ne serait-ce que quelque chose qui marche de temps en temps, et les résultats sont de toute façon fort fragiles.

--
Jedaï

[cougar5]

Merci du conseil, je vais regarder ce module.
C'est un peu dommage car j'avancai doucement.

Il ne me restait plus qu'a reconstruire le xml de sortie quitte à refaire un programme après.

Je reste toujours preneur de solution pour le cas présent.

CC

[cougar5]

Effectivement, ce module est plus simple à utiliser dans mon cas. Il m'a fallu une petite soirée pour réaliser ce que je souhaitais faire.

Merci bien pour le conseil. Voici une partie du 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
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
 
$twig= XML::Twig->new( twig_handlers => { RESULT => \&RESULT })->parsefile( "test.xml");
 
$twig->print( \*OUT);
 
close OUT;
 
 
 
 
sub RESULT
{ 
 
( $twig, $RESULT)= @_;
 
$duration= $RESULT->first_child('BBBBB')->field('22222');
 
 ($hour,$min,$sec,$ms) = split(/:/,$duration);
 
 
  if ((($min > 20) && ($hour == 00)) || ($hour > 00))	{
 
		 #je conserve la balise
		 print "OK\n";	
   }
 
   else {
 
 
          if ($RESULT->first_child('CCCCC')) {
	  $content= $RESULT->first_child('CCCCC')->first_child('11111')->att('eeeee') ;
 
          if ($content ne "A/B")	{
	            #je conserve la balise
		    print "OK\n";	
	  }
 
	  else {
 
                 #Je purge
		 $RESULT->delete;
	     }
        }
 
	else {
	   #Je purge
	   $RESULT->delete;
	  }
 
   }
 
}

Je suis toujours preneur sur les remarques concernants la propreté du code...

CC