#!/usr/bin/perl

# Ce programme se charge de créer la structure d'une page HTML
# qu'il écrit sur la sortie standard

#On affecte le contenu de la variable $ARGV[0] (Correspond au premier élément contenu dans le tableau @ARGV, c'est à dire au premier paramètre qui se trouve sur la ligne de commande) à la variable $fichier
$fichier=$ARGV[0];
#On ouvre en lecture le fichier d'entrée et on le référence sous le nom FICHIERENTREE
open(FICHIERENTREE, $fichier);
#On ouvre en écriture le fichier resultat.html et on le référence sous le nom FICHIERSORTIE
#Si le fichier n'existe pas, il est créé
#Si le fichier existe déjà, son contenu est écrasé
open(FICHIERSORTIE, ">resultat.html");
#On met le contenu du fichier dans un tableau @lignes
@lignes=<FICHIERENTREE>;
#On met le contenu du premier élément du tableau @lignes dans une variable $titre
$titre=$lignes[0];
#On crée un compteur $compteur et on l'initialise à 0
$compteur=0;
#On écrit le début du fichier html
print FICHIERSORTIE "<html>\n";
# On écrit l'entête
print FICHIERSORTIE "<head><title>$titre</title></head>\n";
#On écrit le début du corps
print FICHIERSORTIE "<body>\n";
#Pour chaque valeur du tableau @lignes qu'on affecte à la variable $ligne, on exécute le bloc d'instructions
foreach $ligne (@lignes) {
	#On incrémente le compteur
	$compteur++;
	#On supprime le dernier caractère contenu dans la variable $ligne seulement si celui-ci est un retour à la ligne
	chomp($ligne);
	#On écrit la ligne html qui contient le numéro de la ligne suivi du contenu de la variable $ligne
	print FICHIERSORTIE "<p><b>",$compteur,"</b>\t",$ligne,"</p>\n";
}
#On écrit la fin du corps
print FICHIERSORTIE "</body>\n";
# On écrit la fin du fichier html
print FICHIERSORTIE "</html>\n";
#On ferme le fichier resultat.html
close(FICHIERSORTIE);
#On ferme le fichier d'entrée
close(FICHIERENTREE);