#!/usr/bin/perl
use locale

#Demande du nom du fichier à analyser
print "Tapez le nom du fichier à analyser : ";
#Création de la variable $fichier contenant le flux d'entrée au clavier
my $fichier=<STDIN>;
#Suppression de l'éventuel retour chariot en fin de ligne
chomp ($fichier);
#Demande du pôle à rechercher : "
print "Tapez la forme à rechercher : ";
#Création de la variable $pole contenant le flux d'entrée au clavier
my $pole=<STDIN>;
#Suppression de l'éventuel retour chariot en fin de ligne
chomp ($pole);

#Ouverture de $fichier en lecture
open(ENTREE, $fichier);
#Ouverture fichier résultat en html
open(SORTIE, ">resultat.html");

#préparation du fichier html
print SORTIE "<html><body bgcolor=\"brown\">\n";
print SORTIE "<table align=\"center\" bgcolor=\"white\" border=\"1\">
</td><td align=\"center\"><b>numero occurence</b></td><td align=\"center\"><b>contexte gauche</b></td><td align=\"center\"><b>pole</b></td><td align=\"center\"><b>contexte droit</b></td>\n";

#création d'un compteur
$compteur=1;
#Tant qu'il y a des lignes dans $fichier
while (my $ligne=<ENTREE>) {
	#Si on trouve le mot de la variable $mot dans la ligne
	if ($ligne=~/(.*)($pole)(.*)/gi) {
		#Suppression de l'éventuel retour chariot en fin de ligne
		chomp($ligne);
		#Ecriture des résultat dans le fichier résultat
		print SORTIE "<tr><td>$compteur</td><td>$1</td><td>$2</td><td>$3</td>\n";
		#ajouter 1 au compteur		
		$compteur++;
	}
}
#écriture de la fin du fichier resultat html
print SORTIE "</table>\n</body>\n</html>\n";
#fermeture des fichiers
close(SORTIE);
close(ENTREE);
