Discussion :

[bana3]

Bonjour,

Je debute en perl. Pour l'instant j'ai reussi à lire un fichier text et à extraire des données.
En ce moment, j'aimerai parser un fichier xml et de recuperer certaines données.
Mon fichier xml est de ce type :

Code xml :

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

1
2
3
4
5
6
 <?xml version="1.0" encoding="UTF-8" ?> 
 <voiture> 
 <info count="-1" ended="1376903248" name="A" started="1376903248" status="OK" statusMsg="" /> 
  <info count="-1" ended="1376903275" name="B" started="1376903248" status="OK" statusMsg="" />   
... 
 </voiture>

Je dois extraire par exemple pour 'name=B' :
- la valeur de {ended} et {started} => diff = {ended} - {started}
- le {status}

J'ai regardé ce lien :
http://search.cpan.org/
ainsi que
http://djibril.developpez.com/tutoriels/perl/perl-xml/

Mais je suis perdue avec tous les types de module que je peux utiliser

Code :

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

1
2
3
XML::LibXML
XML::Parser
XML::Simple

Dans mon cas, je pense utiliser :

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
use strict;
use warnings;
use File::Path;
.....
use XML::LibXML::Parser;
 
my $OUTDIR="$home";
my $OUTFILE="file.xml";
my $parser;
my $doc;
 
$parser = new XML::Parser();
$doc = $parser->parsefile ($OUTFILE);
 
  # load
  open my $fh, '<', 'file.xml';
  $doc = XML::LibXML->load_xml(IO => $fh);

Là je bloque pour lui faire comprendre dans la balise voiture, l'attribut name = B, je recupere {ended},{started},{status}.

J'ai essayé de regarder sur internet, je suis perdue avec toutes les infos.
Si vous pouvez me donner plus d'explication ou des conseils, ça m'aiderait enormement

Je vous remercie d'avance.

[djibril]

Bonjour,

Je vous recommande d'utiliser XML::Twig (même si XML::LibXML est également un très bon module).

Essayez de lire la documentation du module et de faire un exemple. J'essayerai de vous aider à le corriger.

[messinese]

Salut,

une solution simple mais efficace :

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
 
#!/usr/bin/perl
 
use strict;
use 5.10.0;
use warnings;
use XML::Simple;
 
my %XMLDumper=();
 
sub XmlDumper {
	# Dump du fichier XML et construction du hash:
	my $ref =XMLin("XMLFile.xml");
	%XMLDump=%{$ref};
	return(1);	
}
 
# appellée comme ceci elle renvois alors une table de hash contenant les infos:
XmlDumper();
#affichage de la table:
print Dumper \%XmlDumper ;

Bonne chance et n'hésites pas a revenir en parler si des problemes surviennent.

Cdlt.