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, ">result.html");

#On recupére le mot à traiter
print "Quel est le mot a chercher?	";
#On affecte à la variable $search l'entrée de la saisie
my $searcht=<STDIN>;
#On enlève le retour chariot
chomp ($searcht);



#On commence à écrire le fichier en sortie
print FILEOUT "<html>\n<body>\n";
print FILEOUT "<title>$0</title>\n";



#----------------------------------------------------------------------------------------------------------------------------------

$compteur = 0;
$compteurlignes = 1;

#Tant qu'on peut associer une ligne du fichier référencé sous le nom FILEIN à la variable $ligne, on exécute le bloc d'instructions
while (my $ligne=<FILEIN>) {


	
    while($ligne=~/(.*)($searcht)(.*)/g) { 
	
	$compteur++;
	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>",$compteurlignes,".",$cg,"<font color=\"cyan\"><b>",$searcht,"</b></font>",$cd,"</p>\n\n";
	

	}
	
}	

	
	
		#Si $compteur est égal à 0 on exécute le bloc d'instructions
		if ($compteur==0) {
			
			print "\nLe mot ",$searcht," n'a pas ete trouve dans le fichier ",$file,".\n\n";
		}
		#Si la condition n'est pas remplie on exécute le bloc d'instructions
		else {
			
			print "\nLe mot ",$searcht," est present ",$compteur," fois dans ",$compteurlignes," lignes du fichier ",$file,".\n\n";
		}
    
    





#On écrit la fin du fichier
print FILEOUT "</body>\n</html>\n";

#On ferme les fichiers ouverts
close(FILEOUT);
close(FILEIN);
