#!/usr/bin/perl -w
#ouverture d'un fichier en lecture, référencé par FILE 
open(FILE,"essai.txt");
#ouverture d'un fichier en écriture, référencé sous le nom OUT
open(OUT,">lettres_doubles.txt");
#on affiche dans l'entrée standard: Tapez la lettre à chercher:
print "Tapez la lettre à chercher:";
#on stocke la lettre de l'utilisateur dans la variable $lettre
$lettre=<STDIN>;
#on enlève les retours de ligne de la variable $lettre s'il y en a 
chomp ($lettre);
#on crée un compteur et on l'initialise à 0
$i=0;
#tant qu'il y a des lignes à lire dans le fichier de lecture, on rentre dans le bloc d'exécution
while ($ligne=<FILE>){
#on incrémente le compteur	
	$i++;
#si dans les ligne du fichier, la lettre de l'utilisateur est doublée	
	if ($ligne=~/\b\w*$lettre$lettre\w*\b/){
#$& est une variable spéciale en perl contenant ce qui a été reconnu dans la dernière recherche de motif.	
	$mot=$&;
#on affiche en fichier de sortie: Dans la ligne numéro $i,la lettre '$lettre' est redoublée dans le mot : $mot\n
	print OUT "Dans la ligne numéro $i,la lettre '$lettre' est redoublée dans le mot : $mot\n";
	}
}
#on ferme le fichier en lecture
close FILE;
#on ferme le fichier en sortie
close OUT;