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 ;

• }