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
| #!/usr/bin/perl
use strict;
use warnings;
use XML::LibXML;
# Sous-routine permettant d'entrée le fichier en CLI
sub obtient_ligne{
#demande , lit , "chompe" et renvoie une ligne d'entrée
print $_[0];
chomp(my $ligne = <STDIN>);
$ligne ;
}
my $fichierXML = &obtient_ligne ("Quel est votre fichier XML ?");
open IN ,$fichierXML
or die "Impossible d'ouvrir '$fichierXML ' en entrée : $!";
my $fichierFW = &obtient_ligne ("Quel est votre fichier FW ?");
open OUT, "+>$fichierFW"
or die "Impossible d'ouvrir '$fichierFW ' en sortie : ";
my $parser = XML::LibXML->new();
# Creation du fichier resultat
my $FichierResulat = 'resultat.txt';
open( my $FhResultat, '>', $FichierResulat )
or die("Impossible d'ouvrir le fichier $FichierResulat\n$!");
#Activation validation DTD du fichier XML avant le parsing
$parser ->validation(1);
my $tree = $parser -> parse_file($fichierXML);
#Racine du document XML
my $root = $tree->getDocumentElement;
#Balise ObjectGroup
my object_group = root -> getElementsByTagName ('ObjectGroup');
foreach my $child_Object_group (@ObjectGroup){
print {FhResulat } "ObjectGroup:";
$childid->getElementsByTagName('ObjectGroup')->[0]->getFirstChild->getData,"",
$childid->getAttribute('id'),
$childid->getAttribute('name'), "\n";
}
close($FhResultat); |
Partager