#!/usr/bin/perl

#Exercice 1 :
# ce programme se charge de créer la structure d'une page HTML qu'il écrit sur la sortie standard

# Modifiez-le de façon à ce qu'il crée, dans le corps de la page, une liste numérotée. Les éléments de cette liste seront les lignes lues sur l'entrée standard 
# (on lira toutes les lignes jusqu'a l'arrivée de fin de fichier sur l'entrée standard, et pour chaque ligne on créera un nouvel item de la liste en sortie). 
# Le programme utilisera la première ligne aussi comme titre de la page HTML.
#Appliquez le programme au fichier p96.fic

open (FILE, "$ARGV[0]");
print "Donner un nom au fichier de sortie\n";
$out=<STDIN>;
chomp $out;
open (FILEOUT, ">$out.html");
print FILEOUT "<HTML>\n";
$i=1;
while ($ligne = <FILE>)
{
	if ($i==1)
	{
		print FILEOUT "<HEAD><TITLE>$ligne</TITLE></HEAD>\n";
		print FILEOUT "<BODY>\n";
		print FILEOUT "<ol>\n";
	}
	print FILEOUT "<li>$ligne</li>\n";
	$i++ ;
}
print FILEOUT "</ol>\n";
print FILEOUT "</BODY>\n";
print FILEOUT "</HTML>\n";

close (FILE);
close (FILEOUT);