Discussion :

[underthebloodredsky]

Bonjour,

j'ai un soucis avec l'utilisation du module XML:Simple :

J'ai pris connaissance du toto de Djibril. Mais je n'arrive pas à l'appliquer sur mon cas.

Je dois récupèrer dans un fichier xml des host ainsi que les adresses ip associées, mais je n'arrive pas à le faire.

fichier xml :

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
 
<?xml version="1.0"?>
<config version="5.0.0" urldb="brightcloud">
  <shared>
    <address>
      <entry name="Host1">
        <ip-netmask>192.168.0.2</ip-netmask>
      </entry>
      <entry name="Host2">
        <ip-netmask>192.168.0.3</ip-netmask>
      </entry>
    </address>
    <address-group>
      <entry name="GRP1">
        <member>Host1</member>
        <member>Host2</member>
      </entry>
    </address-group>
  </shared>
 </config>

Code Source :

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
 
use warnings;
use XML::Simple;
use Data::Dumper;
 
 
 
$xml = new XML::Simple;
 
my $data = $xml->XMLin("test2.xml");
 
my @hosttab = $data->{shared}->{address}->{entry};
foreach my $entry (@hosttab) {
   print ("host = " . $entry->{name} . "ip= " . $entry->{'ip-netmask'} . "\n");
 
}

Merci d'avance pour votre aide

[djibril]

Bonjour,

Voilà !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
 
my $xml  = new XML::Simple;
my $data = $xml->XMLin("test2.xml");
 
my $ref_entry = $data->{shared}->{address}->{entry};
print Dumper $ref_entry;
foreach my $host ( keys %{$ref_entry} ) {
	print "host = " . $host . ", ip = " . $ref_entry->{$host}{'ip-netmask'} . "\n";
}

[underthebloodredsky]

Merci beaucoup pour votre aide