#!/usr/local/bin/perl
# ce programme se charge de créer la structure d'une page HTML
#on ouvre le fichier et on récupère les lignes dans une liste.
open (PTR_FICHIER, "p96.fic") or die "impossible";
@variable = <PTR_FICHIER>;
close PTR_FICHIER;
#on ouvre le fichier de sortie
open (FILEOUT, ">>liste.html");
#on attribue la première ligne au titre de la page HTML
$titre = "$variable[0]" ;
#on commence le document HTML 
print FILEOUT "<HTML>\n";
#on écrit l'entête
print FILEOUT "<HEAD><TITLE>$titre</TITLE></HEAD\n";
#on écrit le corps de la page
print FILEOUT "<BODY>\n<OL>";
#on met en place une boucle for qui va de la première valeur de la liste à la
#dernière et on l'écrit sur une ligne du fichier de sortie, précédée d'un n°
for ($i=0;$i<=$#variable;++$i)
{
$ligne = "$variable[$i]" ;
print FILEOUT "<li>",$ligne,"\n" ;
}
#on referme les balises
print FILEOUT "<OL></BODY>\n";
#on écrit la fin du fichier HTML
print FILEOUT "</HTML>\n";
