Problème avec XML::Simple

**ViRouF** · 06/04/2006, 15h09

Salut !

Je parse un fichier xml de 8 Mo en utilisant un petit bout de perl glané sur le web, mais le seul soucis c'est que j'arrive pas à exploiter ce que j'ai parsé !

Code :

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

1
2
3
4
5
6
7
 
use XML::Simple;
use Data::Dumper;
 
my $ref = XMLin("../2006-04-03/monfichier.xml");
 
print $ref->(time);

Il me sort à chaque fois :

Code :

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

Not a CODE reference at P:\....monscript.pl line 7 :(

Alors que quand je print avec le Dumper j'ai ça :

Code :

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

1
2
3
4
5
 
$VAR1 = {
          'time' => '04/03/06 19:37',
          'mode' => 'mt',
          'version' => '6.5.000.23',

Vous voyez pourquoi ?

**Jedai** · 07/04/2006, 03h27

Relis tes exemples : il ne faut pas écrire :

Code :

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

1
2
 
$ref->(time)

mais

Code :

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

1
2
 
$ref->{time}

--
Jedaï

**ViRouF** · 07/04/2006, 16h33

promis je m'achète des lunettes bientôt

merci

**ViRouF** · 10/04/2006, 16h45

j'ai un autre petit soucis, toujours dans l'exploitation de mon Parse

Code :

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

1
2
3
my $ref = XMLin("../030406.xml");
 
%h_personne = $ref->{Create}->{Personne};

J'obtiens par le Dumper ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
$VAR1 = {
          'sdhfg' => {
                      'firstName' => 'toto',
                      'employeeID' => 'titi',
                          },
          'eorto' => {
                        'firstName' => 'seb',
                        'employeeID' => 'seb31',
          ....

Je veux récupérer ce qu'il y a dans ma table de hashage pour l'insérer dans une base de données. J'essaye de récupérer les clés et de les afficher :

Code :

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

1
2
3
 
@keys_personne = keys(%h_personne);
print join(" ; ",@keys_personne);

Mais à chaque fois il me sort 'HASH(0x.....)'

**Jeh** · 10/04/2006, 16h51

Il me semble, d'après le Dumper que tu as fais, que

Code :

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

$ref->{Create}->{Personne}

ne revoie pas un hash mais une référence de hash.

Essaies donc plutôt comme ça :

Code :

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

1
2
3
4
5
6
7
 
my $ref = XMLin("../030406.xml");
 
$h_personne = $ref->{Create}->{Personne};
....
@keys_personne = keys(%$h_personne);
print join(" ; ",@keys_personne);