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, ">result2.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";



#----------------------------------------------------------------------------------------------------------------------------------
#On crée un dico
%dico=();

#On crée une boucle, tant qu'il y a des lignes dans FILEIN, on execute le bloc d'instructions
while ($ligne = <FILEIN>) {

	#On crée un tableau avec un mot par ligne
	my @TAB=split(/[\W]/,$ligne);
	
	#Pour chaque mot dans le tableau on execute le bloc d'instructions
    foreach my $mot (@TAB) {
	    $dico{$mot}++;
	}
}

#A chaque mot on affecte sa fréquence
while ( ($mots, $freq) = each (%dico)){
       print FILEOUT "<p><b>\n",$mots, "</b>:", $freq, "\n";
}

	



#On écrit la fin du fichier
print FILEOUT "</body>\n</html>\n";

#On ferme les fichiers ouverts
close(FILEOUT);
close(FILEIN);
