#!/usr/bin/perl -w

#Mettre le texte dans une variable
$texte="Il y a 2 mois, ce n'est pas toi qui a decouvert cette vieille armoire, cachee sous la toiture . \n
Moi, je te dis que c'est bien moi, il y a 2 ou 3 mois ";
#Demander le motif à chercher "
print "Entrez le motif à chercher : ";
#Mettre le motif dans une variable
$motif=<STDIN>;
#Supprimer l'éventuel retour-chariot
chomp($motif);
#Ouverture du fichier résultat
open(SORTIE, ">resultat_ss_chaîne_moi.txt");
#écriture d'une entête
print SORTIE "liste des occurences trouvées: \n ";
#couper le texte en mots 
@mots=split(/ /,$texte);
	#pour chaque mot
	foreach $mot (@mots) {
		#si il correspond au motif
		if($mot=~/$motif/i) {
		#Ecrire les résultats dans le fichier résultat
		print SORTIE $mot." ";
	}
}
#Nom du fichier-résultat
print "la liste d'occurences se trouve dans le fichier résultat_ss-chaîne_moi \n ";
#fermeture du fichier résultat
close(SORTIE)
