#!/usr/bin/perl
# ce programme se charge de créer la structure d'une page HTML 
#qu'il écrit sur la sortie standard
open(FILEIN,"$ARGV[0]"); 
# on ouvre le fichier qu'on va lire
open(FILEINN,"$ARGV[0]"); 
# on ouvre le fichier qu'on va lire une deuxième fois
open(FILEOUT, ">Resultat3-1.html"); 
# on ouvre le fichier dans lequel on va écrire
$i=1;
$titre = <FILEIN>; 
#ici on travaille du FILEIN dont on extrait la première ligne seulement
print FILEOUT "<HTML>\n"; 
# on écrit l'entête
print FILEOUT "<HEAD>\n<TITLE>$titre</TITLE>\n</HEAD>\n"; 
# on écrit le corps de la page
print FILEOUT "<BODY>\n";
print FILEOUT "<ol>\n"; 
#on commence la liste
while ($ligne = <FILEINN>) { 
#on travaille sur FILEINN pour que la première ligne ne soit pas perdue
	print FILEOUT "<li> $ligne </li>\n"; #on met chaque ligne dans la liste
	$i++;
}
print FILEOUT "</ol>\n"; #on termine la liste
print FILEOUT "</BODY>\n"; # on écrit la fin du fichier html
print FILEOUT "</HTML>\n";
close(FILEIN); # on ferme le fichier en lecture
close(FILEINN); # on ferme le fichier en lecture
close(FILEOUT);# on ferme le fichier en sortie