Salut Pascale,

pour continuer un peu les aventures sur le programme Perl en utilisant XML Simple qui posera des problèmes plus tard mais pour l'instant, c'est une brique après l'autre.

#!/usr/bin/perl -w
# chargement des modules necessaires
use strict;
use CGI;
use XML::Simple;
use Data::Dumper;

# Nom du fichier XML a lire

my $file = 'index.xml';

# creation de l'instance

my $xs1 = XML::Simple->new(suppressempty => '');

# Lecture du fichier XML

my $doc = $xs1->XMLin($file);

# Lecture des valeurs dans l'arbre XML

my $nwnomville = $doc->{nwheader}->{nwnomville};
my $nwregion = $doc->{nwheader}->{nwregion};
my $nwhab = $doc->{nwheader}->{nwhabnbr};

# Creation de l'instance qui va permettre 
# la creation de la page Web

my $q = new CGI;                          # create new CGI object
print $q->header,                        # create the HTTP header
    $q->start_html('Script de Lecture pour NW'), 
                                                     # start the HTML
    $q->h1('Lecture NW '),             # level 1 header
    $q->p('Nom : '."$nwnomville"), # paragraphe
    $q->p('Region : '."$nwregion"),
    $q->p('Nbr : '."$nwhab"),
    $q->end_html;                         # end the HTML

Et tout ce simple petit programme créé un document XHTML 1.0 Transitionnel. :) C'est merveilleux et simple. Pour le tester en grandeur nature, Je l'ai rendu accessible : read-index.