use locale;
#!/usr/bin/perl

#On va récupérer le fichier à analyser
print "Quel est le nom du fichier sur lequel nous allons travailler?	";
#On affecte à la variable $file l'entrée de la saisie
my $file=<STDIN>;
#On enlève le retour chariot
chomp ($file);

#On ouvre le fichier à analyser en lecture
open (FILEIN,$file);
#Ainsi que le fichier de sortie
open(FILEOUT, ">resultabou.html");

#On recupére le mot à traiter
print "Quel sont les mots a analyser? (Separez-les par un espace)	";
#On affecte à la variable $search l'entrée de la saisie
my $searcht=<STDIN>;
#On enlève le retour chariot
chomp ($searcht);

#On crée un tableau afin de pouvoir créer une boucle foreach et analyser tous les mots souhaités en une seule fois
my @TEST=split(/ /,$searcht);





#On commence à écrire le fichier en sortie
print FILEOUT "<html>\n<body>\n";
print FILEOUT "<title>$0</title>\n";
print FILEOUT "<p align=\"center\"><font color=\"red\">Concordance de \"$searcht\" dans le fichier $file<br/>construite avec le programme $0</font></p> \n";


#----------------------------------------------------------------------------------------------------------------------------------
#Maintenant on va chercher les contextes


#Tant qu'on peut associer une ligne du fichier référencé sous le nom FILEIN à la variable $line, on exécute le bloc d'instructions
while (my $ligne=<FILEIN>) {
	foreach $searcht (@TEST) {
	
	#Pour le fichier p96.bal seulement: on affichera les balises du fichier!
    while($ligne=~/(.*)($searcht)(.*)/g) { 
	my $cg=$1;
	my $cd=$3;
	$cg=~s/</&lt;/g;
	$cg=~s/>/&gt;/g;
	$cd=~s/</&lt;/g;
	$cd=~s/>/&gt;/g;
	print FILEOUT "<p>",$cg,"<font color=\"red\"><b>",$searcht,"</b></font>",$cd,"</p>\n\n";
	    
	}
	
	
    
    
}
}



#On écrit la fin du fichier
print FILEOUT "</body>\n</html>\n";

#On ferme les fichiers ouverts
close(FILEOUT);
close(FILEIN);
