Discussion :

[flash21]

Bonjour,

je reviens vers vous à propos d'un problème que j'avais eu il y a quelques jours à propos de l'ajout ou de la suppression d'attributs dans un fichier xml. J'ai vu avec les tutos de Djibril qu'on pouvait uniquement charger en mémoire la ligne qu'on souhaitait. Après avoir parcouru plein de documentations et notamment le CPAN, je ne comprends pas comment cela est possible. Serait-il possible de me montrer comment avec l'exemple de fichier cité, je peux charger uniquement la ligne ENVELOPPE (l'entête). Le reste des lignes chargées ne me sert pas en réalité. Merci d'avance pour votre retour.

Bonjour,

je cherche désespérément à modifier ou supprimer des attributs d'un fichier xml mais je n'y arrive pas. Ce qu'il me faudrait en fait, c'est à la lecture fichier aller modifier (ou supprimer) certains attributs d'une balise afin d'écrire le fichier résultat. J'arrive à écrire mon fichier en sortie mais les attributs ne sont pas modifiés. Pouvez-vous m'aider svp?
Ci-dessous mon code :

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
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
 
#!/usr/bin/perl
 
use Carp;
use warnings;
use XML::Twig;
#use XML::LibXML;
use File::Temp qw(tempfile tempdir);
use Getopt::Long;
 
my ($repertoire, $fichier) = ();
GetOptions( 'fichier|i=s' => \$fichier, 'repertoire|d=s' => \$repertoire);
 
if(not defined $fichier or not defined $repertoire) {
  die "Fichier source ou répertoire de travail manquant!";
}
creation fichier resultat avec non unique
my($fh, $filename) = tempfile( "FILEOUT"."_". 'XXXXXXXX', SUFFIX => '.xml', DIR => $repertoire );
binmode $fh, ':encoding(UTF-8)';#UTF8 format
 
# Lecture
my $twig = XML::Twig->new( pretty_print => 'indented' );
$twig->parsefile($fichier);
my $twig_SHIPMENT_EXPECTED_INFORMATION = $twig->root->first_child('ENVELOPPE');
removeAttribute($twig_ENVELOPPE, "xmlns="http://www.secondsiteweb.com/WMSXMLMessages"");
=head1
Je n'arrive pas à supprimer ou modifier un attribut en particulier dans mon fichier xml
quelqu'un pourrait il m'aider?
exemple de fichier xml :
 
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<ENVELOPPE xmlns:premier="http://www.siteweb/XMLDataTypes" xmlns="http://www.secondsiteweb.com/WMSXMLMessages" xmlns:troisieme="http://www.troisiemesiteweb.com/GateDataTypes" xmlns:quatrieme="http://www.w3.org/2001/XMLSchema-instance">
	<SequenceId>1</SequenceId>
	<DateDuJour>25</DateDuJour>
</ENVELOPPE>
 
J'aimerai avoir un fichier comme suit : 
 
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<ENVELOPPE xmlns:premier="http://www.siteweb/XMLDataTypes" xmlns:ajout="http://www.secondsiteweb.com/WMSXMLMessages" xmlns:troisieme="http://www.troisiemesiteweb.com/GateDataTypes" xmlns:quatrieme="http://www.w3.org/2001/XMLSchema-instance">
	<SequenceId>1</SequenceId>
	<DateDuJour>25</DateDuJour>
</ENVELOPPE>
 
ou supprimer tout simplement le :  xmlns="http://www.secondsiteweb.com/WMSXMLMessages"
 
=cut
$twig->print($fh);
close $fh;

[djibril]

La première des choses est de nous montrer votre programme actuel.
Sinon, pour analyser le XML par bout, il faut utiliser les twig_handler.

[flash21]

Oui c'est vrai, j'avais oublié de montrer mon code. Le voici :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#!/usr/bin/perl
 
use Carp;
#use warnings;
use XML::Twig;
use File::Temp qw(tempfile tempdir);
use Getopt::Long;
 
my ($repertoire, $fichier,$temporaire) = ();
GetOptions( 'fichier|i=s' => \$fichier,'nomtemporaire|t=s' => \$temporaire, 'repertoire|r=s' => \$repertoire);
 
my $Nom = "ballon";
my $CodeLieu = "stadium"; 
 
if(not defined $fichier or not defined $repertoire) {
  die "Fichier source ou répertoire de travail manquant!";
}
 
# Lecture du fichier XML
my $twig = XML::Twig->new(
  pretty_print  => 'indented',
  Twig_handlers => { 'ENVELOPPE' => \&ENVELOPPE },
);
$twig->parsefile($fichier);
 
sub ENVELOPPE
{
	my ($twig, $twig_ENVELOPPE) = @_;
	# Création d'un fichier avec un nom unique
	my($fh, $filename) = tempfile( $temporaire.'XXXX', SUFFIX => '_ENVELOPPE', DIR => $repertoire );
	binmode $fh, ':encoding(UTF-8)';
	# Lecture du fichier XML
	my $twig = XML::Twig->new( pretty_print => 'indented' );
	$twig->parsefile($fichier);
	# Suppression de l'attribut xmlns
	$twig_ENVELOPPE->del_att('xmlns');
	$twig_ENVELOPPE = $twig->root;
	$twig_ENVELOPPE->insert_new_elt(ENTETE => {Nom => $Nom, CodeLieu => $CodeLieu});	
	$twig->print($fh);
	$twig->purge;
	close $fh;
}

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
<ENVELOPPE xmlns:premier="http://www.siteweb/XMLDataTypes" xmlns="http://www.secondsiteweb.com/WMSXMLMessages" xmlns:troisieme="http://www.troisiemesiteweb.com/GateDataTypes" xmlns:quatrieme="http://www.w3.org/2001/XMLSchema-instance">
	<SequenceId>1</SequenceId>
	<DateDuJour>25</DateDuJour>
	<SequenceDebut>1</SequenceDebut>
	<DateDuJour>25</DateDuJour>
	<SequenceId>1</SequenceId>
	<Mois>25</Mois>
	<Annee>1</Annee>
	<DateDuJour>25</DateDuJour>
	<SequenceId>1</SequenceId>
	<DateDuJour>25</DateDuJour>
	<SequenceId>1</SequenceId>
	<DateDuJour>25</DateDuJour>
	<SequenceId>1</SequenceId>
	<DateDuJour>25</DateDuJour>
</ENVELOPPE>

Le fichier ci dessus est juste un exemple. Le vrai fait plus de 2000000 de lignes. J'ai compris que le twig_handle permettait de charger uniquement la balise dont on a besoin. Je me demande comment ça pourrait marcher ici étant donné que Enveloppe inclu tout l'xml. Charger cette balise implique de charger le fichier en entier.

Pour executer le script : perl script.pl -i fichier.xml -t fichier.xml -r .

Merci pour votre aide

[djibril]

Bonjour,

Le code est un peu bizarre car dans la procédure enveloppe, vous créez un fichier en lisant une deuxième fois le fichier XML.

Ce code devrait déjà être mieux :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#!/usr/bin/perl
 
use Carp;
#use warnings;
use XML::Twig;
use File::Temp qw(tempfile tempdir);
use Getopt::Long;
 
my ($repertoire, $fichier,$temporaire) = ();
GetOptions( 'fichier|i=s' => \$fichier,'nomtemporaire|t=s' => \$temporaire, 'repertoire|r=s' => \$repertoire);
 
my $Nom = "ballon";
my $CodeLieu = "stadium"; 
 
if(not defined $fichier or not defined $repertoire) {
  die "Fichier source ou répertoire de travail manquant!";
}
 
# Lecture du fichier XML
my $twig = XML::Twig->new(
  pretty_print  => 'indented',
  Twig_handlers => { 'ENVELOPPE' => \&ENVELOPPE },
);
 
# Création d'un fichier avec un nom unique
my($fh, $filename) = tempfile( $temporaire.'XXXX', SUFFIX => '_ENVELOPPE', DIR => $repertoire );
binmode $fh, ':encoding(UTF-8)';
 
$twig->parsefile($fichier);
 
close $fh;
 
sub ENVELOPPE
{
	my ($twig, $twig_ENVELOPPE) = @_;
	# Suppression de l'attribut xmlns
	$twig_ENVELOPPE->del_att('xmlns');
	$twig_ENVELOPPE = $twig->root;
	$twig_ENVELOPPE->insert_new_elt(ENTETE => {Nom => $Nom, CodeLieu => $CodeLieu});	
	$twig->print($fh);
	$twig->purge;
}

[flash21]

Oui c'est vrai. C'était une erreur de ma part. Merci de l'avoir corrigé. Mon problème reste entier cependant. Je charge tout le bloc en mémoire alors que j'aimerais ne charger que la première ligne. Le Twig_handlers ne m'est pas bien utile dans ce cas.

[djibril]

Étant donné que tu souhaites modifier (et non juste extraire) des données précises, il sera impossible pour XML::Twig de faire autrement. De plus, tu insères de nouvelles données donc bon.
As-tu eu des soucis de parsing pour tes gros fichiers ? As-tu fait des tests car 180Mo, c'est rien !