revenons au code

• #!/usr/bin/perl -CSD

• # sort les nom, intitulés de poste et salaires de tous les employés

• # utilise un style DOM (charge tout le XML avant de se mettre à bosser)

• use strct;

• use warnings;

• use utf8;

• use XML::Twig;

• my $twig= XML::Twig->parse( "hr_data.xml");

• foreach my $employé ($twig->root->children( 'employé'))

• { my $état_civil= $employé->first_child( 'état-civil');

• my $poste= $employé->first_child( 'emploi')->first_child( 'poste');

• my $salaire= $poste->first_child( 'paye') ->first_child( 'salaire') ->att( 'montant');

• printf "%s, %s (%s): €%d\n",

• $état_civil->field( 'nom'), $état_civil->field( 'prénom'),

• $poste->field( 'nom'), $salaire ;

• }