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
| use strict;
use warnings;
use XML::Twig;
# input
my $file='fichier.xml';
# output
my $FichierResulat = 'fichier.c';
open( my $FhResultat, '>', $FichierResulat )
or die("Impossible d'ouvrir le fichier $FichierResulat\n$!");
my $twig=XML::Twig->new(
twig_handlers=>{
'DATA-ELEMENT-PROTOTYPE'=>\&fct,
'P-PORT-PROTOTYPE'=>\&portP,
});
$twig->parsefile($file);
sub fct
{
my ($twig,$dataelt)=@_;
my $name_data_elt=$dataelt->field('SHORT-NAME');
print {$FhResultat} $name_data_elt,"\n";
}
sub portP
{
my ($twig,$portP)=@_;
my $namesP=$portP->first_child_text('SHORT-NAME');
print {$FhResultat} "Rte__",$namesP,"\n";
}
close($FhResultat); |
Partager