#!/usr/b}in/perl
open(FILEIN,"$ARGV[0]"); # on ouvre le fichier qu'on va lire
open(FILEOUT,">CombienAmants.txt");#on ouvre le fichier sur lequel on va écrire
while ($ligne = <FILEIN>){ #tant qu'il y a quelque chose à lire
if ($ligne=~/\w+/){ 
# si la ligne contient des caractères (on veut éviter les lignes blanches)
		$ligne=~s/&egrave;/è/g;# nettoie
		$ligne=~s/&eacute;/é/g;# nettoie
		$ligne=~s/&agrave;/à/g;# nettoie
		@tableau=split(/ /,$ligne); 
		#On crée un tableau à partir de chaque ligne 
		#puis on segmente celle-ci grâce à split. 
		#On prend l'espace comme séparateur
		$compteur=$#tableau+1; 
		# $#tableau donne l'indice du dernier élément, en lui ajoutant 1, 
		# on sait combien il y a d'éléments dans le tableau
		print FILEOUT "Il y a $compteur mots dans cette phrase\n"; 
		#on dit combien il y a d'éléments par phrase
		$grandcompteur=$grandcompteur+$compteur; 
		#on incrémente le compteur général avec les valeurs de chaque phrase
		}#fin de if
		} #fin de while
print FILEOUT "Il y a $grandcompteur mots dans ce texte";
close(FILEIN); # on ferme le fichier en lecture
close(FILEOUT);# on ferme le fichier en sortie