#!/usr/bin/perl
#On affiche "Donnez moi le nom du fichier de travail : "
print "Donnez moi le nom du fichier de travail : ";
#On affecte à la variable $fichier le contenu de l'entrée standard <STDIN> (Pointeur qui permet de lire le flux d'entrée au clavier)
my $fichier=<STDIN>;
#On supprime le dernier caractère contenu dans la variable $fichier seulement si celui-ci est un retour à la ligne
chomp ($fichier);
#On affiche "Donnez moi le pole a chercher : "
print "Donnez moi le pole a chercher : ";
#On affecte à la variable $pole le contenu de l'entrée standard <STDIN> (Pointeur qui permet de lire le flux d'entrée au clavier)
my $pole=<STDIN>;
#On supprime le dernier caractère contenu dans la variable $pole seulement si celui-ci est un retour à la ligne
chomp ($pole);
#On ouvre en lecture le fichier dont le nom est contenu dans la variable $fichier 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 écrit le début du fichier html
print FICHIERSORTIE "<html>\n";
# On écrit l'entête
print FICHIERSORTIE "<head></head>\n";
#On écrit le début du corps
print FICHIERSORTIE "<body>\n";
#Tant qu'on peut associer une ligne du fichier référencé sous le nom FICHIERENTREE à la variable $ligne, on exécute le bloc d'instructions
while (my $ligne=<FICHIERENTREE>) {
	#Si le contenu de la variable $ligne contient la forme pole contenue dans la variable $pole, on exécute le bloc d'instructions
	if ($ligne=~/(.*)($pole)(.*)/gi) {
		#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>",$1,"<font color=\"red\"><b>",$2,"</b></font>",$3,"</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 référencé sous le nom FICHIERSORTIE
close(FICHIERSORTIE);
#On ferme le fichier référencé sous le nom FICHIERENTREE
close(FICHIERENTREE);