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);

print "Quelle est la lettre a chercher:	";
$search=<STDIN>;
chomp $search;

#On ouvre le fichier à analyser en lecture
open (FILEIN,$file);
#Ainsi que le fichier de sortie
open(FILEOUT, ">result.txt");


#On crée un compteur initialisé à 0
$compteur=0;

#On crée une boucle, tant qu'il y a des lignes dans FILEIN on execute le bloc d'instructions
while ($line=<FILEIN>){

	#On incrémente le compteur
	$compteur++;
	
	#On crée une condition, si la ligne contient l'expression régulière on execute le bloc d'instructions
	if ($line=~/\b\w*$search$search\w*\b/){
	
	#On stocke le mot qui contient l'expression dans la varibale $w
	$w=$&;
	
	#On affiche le tout
	print FILEOUT "Dans la ligne $compteur la lettre '$search' est redoublée dans le mot : $w\n";
	print "Dans la ligne $compteur la lettre '$search' est redoublee dans le mot : $w\n";
	}
}
close FILEIN;
close FILEOUT;


