#!/usr/bin/perl -w
#Demander à l'utilisateur d'entrer le nom du fichier
print "Tapez le nom du fichier de travail ";
#Mettre dans une variable $fichier
my $fichier=<STDIN>;
#Supprimer l'éventuel retour-chariot
chomp ($fichier);
#Demander à l'utilisateur d'entrer la lettre à rechercher
print "Tapez la lettre à chercher ";
#Mettre dans une variable $lettre
my $lettre=<STDIN>;
#Supprimer l'éventuel retour-chariot
chomp ($lettre);
#Ouverture fichier de travail en lecture
open (ENTREE, "$fichier");
#Ouverture du fichier résultat en écriture
open(SORTIE, ">resultat.txt");
#Création d'un compteur de lignes
$compteurlignes=0;
#tant qu'il y a des lignes dans le fichier de travail
while (my $ligne=<ENTREE>) {
	#Ajouter un au compteur
	++$compteurlignes;
	#Supprimer l'éventuel retour-chariot
	chomp $ligne;	
	#Si la ligne contient le motif doublé dans un mot
	if ($ligne=~/\b\w*$lettre$lettre\w*\b/){
	#mettre le mot dans une variable
	$mot=$&;
	#Ecriture des résultats
	print SORTIE "Dans la ligne $compteurlignes la lettre $lettre est redoublée dans le mot $mot\n";
	}
}
#Nom du fichier résultat
print "Le résultat de la recherche se situe dans le fichier résultat.txt \n";
#Fermeture du fichier résultat
close(SORTIE
);
#Fermeture du fichie detravail
close(ENTREE);
