use locale;

#!/usr/bin/perl -w
#Ouverture en lecture du fichier
open(FILEIN, "$ARGV[0]");

#Ouverture en écriture du fichier results.txt référencé FILEOUT
open(FILEOUT, ">results.txt");

#Tant qu'on peut associer une ligne du fichier à traiter
#à la variable $line on exécute le bloc d'instructions
while ($line=<FILEIN>) {

	#Si la ligne contient des caractères...
	if ($line=~/\w+/){ 
		
		#On nettoie le fichier au cas où...
		$line=~s/&egrave;/è/g;
		$line=~s/&eacute;/é/g;
		$line=~s/&agrave;/à/g;
		
		
		#On supprime les balises...
		$line=~s/(<.*>)/ /g;
		
	  
		#On crée un tableau à partir de nos lignes
		#que l'on segmente grâce à la fonction "split"
		#On utilise le blanc comme séparateur
		@table=split(/\W+/,$line);
	  
		#On compte le nombre de mots par ligne
		$j=$#table+1;
	
		#On affiche le nombre de mots par ligne
		print "Il y a $j mot(s) dans cette ligne: $line";
		print FILEOUT "Il y a $j mot(s) dans cette ligne: $line";
	
		#On crée un compteur global auquel on ajoute sa propre valeur plus la valeur de chaque ligne
		$k=$j+$k;
  
	}	
}
 

print "\nIl y a $k mots dans ce fichier.\n";
print FILEOUT "\nIl y a $k mots dans ce fichier.\n";



#On ferme le fichier resultat.txt
close(FILEOUT);

#On ferme le fichier p96.bal
close(FILEIN);





