use locale;
#!/usr/bin/perl -w

#On ouvre un fichier en écriture
open(FILEOUT,">localisation.txt");

#On ajoute du contenu dans la variable $texte
$texte="Il y a 2 mois, ce n'est pas toi qui a découvert cette vieille armoire, cachée sous la toiture.\nMoi, je te dis que c'est bien moi, il y a 2 ou 3 mois. ";

#On ouvre un fichier en lecture
open(FILE,"$texte");

print "Saisissez le motif a chercher:	";
#Le motif est récupéré via l'entrée standard
$motif=<STDIN>;
#On supprime le retour chariot
chomp($motif);


print "Saisissez la sous-chaine a chercher:	";
#Le motif est récupéré via l'entrée standard
$motifsc=<STDIN>;
#On supprime le retour chariot
chomp($motifsc);


print "Saisissez mot en debut de phrase a chercher:	";
#Le motif est récupéré via l'entrée standard
$motifdeb=<STDIN>;
#On supprime le retour chariot
chomp($motifdeb);

#On affiche le début du "rapport" de la recherche de motif
print FILEOUT "Rapport sur la recherche de $motif, $motifsc en tant que sous-chaine, $motifdeb en début de phrase\n\n";
print "\nRapport sur la recherche de $motif, $motifsc en tant que sous-chaine, $motifdeb en debut de phrase\n\n";





print "Le texte est le suivant: \n$texte\n\n\n";
print FILEOUT "Le texte est le suivant: \n$texte\n\n\n";
#On crée une condition
#Si la variable $texte contient le motif (on ignore la casse) recherché:
if ($texte=~/$motif/i) {

	#On affiche que le mot recherché est bien dans le texte
	print FILEOUT "Le mot $motif se trouve bien dans le texte\n";
	print "Le mot $motif se trouve bien dans le texte\n";
}

#Si le mot recherché n'existe pas
#On affiche que le mot n'existe pas dans le texte
else {
	print FILEOUT "Le mot $motif n'est pas dans le texte analysé.\n";
	print "Le mot $motif n'est pas dans le texte analyse.\n";
}

#On crée une condition
#Si la variable $texte contient le motif (on ignore la casse) recherché:
if ($texte=~/$motifsc/i) {

	#On affiche que le mot recherché est bien dans le texte
	print FILEOUT "La sous-chaine $motifsc se trouve bien dans le texte\n";
	print "La sous-chaine $motifsc se trouve bien dans le texte\n";
}

#Si le mot recherché n'existe pas
#On affiche que le mot n'existe pas dans le texte
else {
	print FILEOUT "La sous-chaine $motifsc ne se trouve pas dans le texte\n";
	print "La sous-chaine $motifsc ne se trouve pas dans le texte\n";
}
	
#On découpe en ligne
@w=split(/\n/,$texte);
#On crée un compteur pour compter les lignes
$i=0;
#Pour chaque ligne:
foreach $w (@w) {
	#On crée une condition
	#Si la variable $texte contient le motif (on ignore la casse) recherché:	
	if ($w=~/^$motifdeb/i) {

		#On incrémente le compteur
		$i++;
		#On affiche que le mot recherché est bien dans le texte
		print FILEOUT "Le mot $motifdeb se trouve bien en début de phrase $i\n";
		print "Le mot $motifdeb se trouve bien en debut de phrase $i\n";
	}

	#Si le mot recherché n'existe pas
	#On affiche que le mot n'existe pas dans le texte
	else {
		print FILEOUT "Le mot $motifdeb n'est pas en début de phrase $i\n";
		print "Le mot $motifdeb n'est pas en debut de phrase $i\n";
	}
}



#On ferme le fichier en écriture
close FILEOUT;
close FILE;
