Discussion :

[bartmarley]

Bonjour,

je me mets au perl pour parser un document xml (on ne m'a pas laissé le choix du langage! ).

En tout cas j'ai installé perl sur mon windows xp (là non plus j'ai pas le choix! ) et j'ai récupéré un premier script sur le net pour parser un fichier.
Le voila:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
#/usr/local/bin/perl
 
# utiliser le module
use XML::Simple;
 
# créer un objet
$xml=new XML::Simple;
 
# lire le fichier XML
$data=$xml->XMLin("./data.xml");
 
# accéder aux données XML
print Dumper ($data)

Mais lorsque j'exécute ce script dans la console j'obtiens l'erreur suivante 2 fois:

scalar found where operator expected at [...] line 9 near $xml

Je ne comprends pas cette erreur. Est-ce que quelqu'un aurait la gentillesse de me l'expliquer svp? J'ai déjà fait un peu de perl en cours l'année dernière mais c'était pas la matière dans laquelle j'étais le plus attentif

Merci!

[2Eurocents]

Bonjour,

je me mets au perl pour parser un document xml (on ne m'a pas laissé le choix du langage! ).

Et à mon avis, "on" aura eu raison

En tout cas j'ai installé perl sur mon windows xp (là non plus j'ai pas le choix! )

Soyons pragmatiques, même si certains disent que Windows, c'est le *MAL*, ça n'empêche pas que ce soit un environnement largement répandu. Si Perl est disponible dessus ... eh bien profitons-en pour civiliser Windows .

et j'ai récupéré un premier script sur le net pour parser un fichier.
Le voila:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
#/usr/local/bin/perl
 
# utiliser le module
use XML::Simple;
 
# créer un objet
$xml=new XML::Simple;
 
# lire le fichier XML
$data=$xml->XMLin("./data.xml");
 
# accéder aux données XML
print Dumper ($data)

Mais lorsque j'exécute ce script dans la console j'obtiens l'erreur suivante 2 fois:

scalar found where operator expected at [...] line 9 near $xml

Je ne comprends pas cette erreur. Est-ce que quelqu'un aurait la gentillesse de me l'expliquer svp? J'ai déjà fait un peu de perl en cours l'année dernière mais c'était pas la matière dans laquelle j'étais le plus attentif

Merci!

Tout d'abord, activer les warnings et les "strictures" est une bonne habitude à prendre ... Evidemment, une fois que c'est fait, la déclaration préalable des variables devient obligatoire ...

Ensuite, pour utiliser le Dumper, il faut avoir au préalable chargé le module Data:umper.

Par ailleurs, ajouter un ";" pour terminer la ligne du print serait une bonne idée, pour ne pas avoir d'erreur si l'on poursuit le script en oubliant de le mettre ...

Avec ces corrections, le script devient :

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
#!/bin/perl
 
use warnings;
use strict;
 
# utiliser le module XML simplifié
use XML::Simple;
 
# utiliser le module DataDumper
use Data::Dumper;
 
# créer un objet
my $xml=new XML::Simple;
 
# lire le fichier XML
my $data=$xml->XMLin("./data.xml");
 
# accéder aux données XML
print Dumper ($data);

Et ça, ça fonctionne parfaitement chez moi.

Bonne continuation.

[GLDavid]

Salut

Euh, franchement, j'ai testé ton code, mis à part un point virgule qui manque à la fin, je n'ai pas d'erreur de syntaxe :

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
 
# utiliser le module
use XML::Simple;
 
# créer un objet
$xml=new XML::Simple;
 
# lire le fichier XML
$data=$xml->XMLin("./ip.xml");
 
# accéder aux données XML
print Dumper ($data);

En revanche, je n'ai pas d'affichage de mon fichier XML. As-tu bien lu la doc sur CPAN ?

@++

[GLDavid]

Bon, j'ai trouvé ! Tu avais oublié d'incorporer un module : "Data:umper".
Voici tel que ton script devrait être :

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
 
#/usr/bin/perl -w
 
# utiliser le module
use XML::Simple;
use Data::Dumper;
use strict;
 
# créer un objet
my($xml)=new XML::Simple;
 
# lire le fichier XML
my($data)=$xml->XMLin("./ip.xml");
 
# accéder aux données XML
print Dumper ($data);

A noter que ceci apparaît dans la doc du module XML::Simple dans CPAN. Moralité, CPAN is the truth !

@++

[GLDavid]

Arrrghhhhhhhh !!!!!!!!! Grillé par mon propre padawan !!!!!
L'élève a dépassé le maître !!!

@++

GLDavid, qui va se coucher !

[bartmarley]

Merci

Ca marche!

Je ne comprends pas pourquoi dans le script que j'ai trouvé sur le net il manquait ces trucs!

En tout cas maintenant je pense avoir compris la base du truc.

Merci encore pour l'aide!