[XML::Parser] et attributs

Version imprimable

Bonjour,

j'utilise le module xml::parser pour parser un fichier xml avec des elements que je veux recuperer selon les balises.

j'arrive a recuperer les balises dans un fichier out1.xml
mais le soucis est que je ne recupere pas les attributs pour chaque balise.

voici mon script :

Code:

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
###parse le fichier xml selon l'ÈlÈment a analyser 
##on recupere ici LOCATION, ORGANISATION ET PERSON DANS LE FICHIER SORTIE DE GATE
 
use locale;
use strict;
use XML::Parser;
 
my $filename =  'out1.xml';
open OUT, '>:utf8', $filename 
  or die "Couldn't open $filename   : $!\n";
 
if ( $#ARGV!=0 ){
    die "Usage : ", $0, "fichier_xml\n";
}
 
my $parseur = new XML::Parser;
$parseur -> setHandlers (
    Start => \&balise_ouvrante,
    End => \&balise_fermante,
    Char => \&segment_texte
    );
 
my ( $segment, $segment_en_cours);
$parseur->parsefile( $ARGV[0] ,'<:utf8');
 
 
 
sub balise_ouvrante {
    my $p = shift @_;
 
    my $balise = shift @_;
    my %attributs;
    while ( $#_ >= 0 ){
	my $cle = shift @_;
	my $valeur = shift @_;
	$attributs{$cle} = $valeur;
	#print OUT $cle."==>".$valeur."\n";
    }
 
 
 
    if ( $balise eq "Organization" | $balise eq "Location" | $balise eq "Person"){
 
	$segment = "";
	$segment_en_cours = 1;
    }    
 
}
 
sub segment_texte {
    my $p = shift @_;
    my $texte = shift @_;
    if ( $segment_en_cours ) {
	$segment = $segment . $texte;
 
    }
}
my $i;
 
sub balise_fermante {
 
    my $p = shift @_;
    my $balise = shift @_;
 
    if ( $balise eq "Organization" | $balise eq "Location" | $balise eq "Person"){
	$segment =~ s/\n//g;
	$segment =~ s/\s\s+/ /g;
 
 
	print OUT "<".$balise.">".$segment."</".$balise.">"."\n";
	#print OUT $balise."#".$segment."\n";
 
	$segment_en_cours = 0;
	$i++;
    }
 
 
 
 
}
 
##print "---Nombre de signature--- :".$i."\n";

merci de votre aide

Tu n'as surement pas bien compris la documentation. Base toi sur ce code pour comprendre :

Code:

1
2
3
4
5
6
7
8
sub balise_ouvrante {
  my ( $objet_parser, $nom_balise, %attribut_valeur ) = @_;
    print "ATTRIBUTS : %attribut_valeur\n";
    if ( $nom_balise eq "Organization" || $nom_balise eq "Location" || $nom_balise eq "Person"){	
    	$segment = "";
    	$segment_en_cours = 1;
    }       
}

c'est pas mieux comme ça? :

Code:

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
###parse le fichier xml selon l'ÈlÈment a analyser 
##on recupere ici LOCATION, ORGANISATION ET PERSON DANS LE FICHIER SORTIE DE GATE
 
use locale;
use strict;
use XML::Parser;
 
my $filename =  'out1.xml';
open OUT, '>:utf8', $filename 
  or die "Couldn't open $filename   : $!\n";
 
if ( $#ARGV!=0 ){
    die "Usage : ", $0, "fichier_xml\n";
}
 
my $parseur = new XML::Parser;
$parseur -> setHandlers (
    Start => \&balise_ouvrante,
    End => \&balise_fermante,
    Char => \&segment_texte
    );
 
my ( $segment, $segment_en_cours);
$parseur->parsefile( $ARGV[0] ,'<:utf8');
 
 
 
 
sub balise_ouvrante {
    my $p = shift @_;
 
    my $balise = shift @_;
    my %attributs;
 
 
	if ( $balise eq "Organization" | $balise eq "Location" | $balise eq "Person"){
 
	$segment = "";
	$segment_en_cours = 1;
 
	print OUT "<".$balise." ";
 
 
		while ( $#_ >= 0 ){
		my $cle = shift @_;
		my $valeur = shift @_;
		$attributs{$cle} = $valeur;
 
			if($cle eq "locType" | $cle eq "orgType" | $cle eq "gender"){
			print OUT $cle.'="'.$valeur.'" ';
			}
		} 
 
    print OUT ">";
    }    
 
}
 
sub segment_texte {
    my $p = shift @_;
    my $texte = shift @_;
    if ( $segment_en_cours ) {
	$segment = $segment . $texte;
 
    }
}
my $i;
 
sub balise_fermante {
 
    my $p = shift @_;
    my $balise = shift @_;
 
    if ( $balise eq "Organization" | $balise eq "Location" | $balise eq "Person"){
	$segment =~ s/\n//g;
	$segment =~ s/\s\s+/ /g;
 
	print OUT $segment."</".$balise.">"."\n";
	#print OUT "<".$balise.">".$segment."</".$balise.">"."\n";
	#print OUT $balise."#".$segment."\n";
 
	$segment_en_cours = 0;
	$i++;
    }
 
 
 
 
}
 
##print "---Nombre de signature--- :".$i."\n";

10/02/2011, 18h10
djibril

récupère les valeurs dans ta méthode balise_ouvrante comme je te l'ai montré dans le code ci-dessus ;)
11/02/2011, 09h26
knebhi

Oui c'est ce que j'ai fait. par contre pour le contenu de la balise
je suis obligé de passer par la methode segment ou balise fermante pour recuperer ce que je veux.
11/02/2011, 10h13
djibril

bon tu n'es pas clair. Je t'ai donné un exemple de code sue tu devrais adapter pour tes balises fermantes, ouvrante etc. Avec ça, ecrit un code plus lisible et compréhensible, soumet nous ton nouveau code avec en exemple ton XML pour que l'on comprenne ce que tu souhaites réaliser. Sinon Regarde du coté de XML::Twig, plus facile à prendre en main. Quelques conseils entre perl et XML.