#!/usr/b}in/perl
open(FILEIN,"$ARGV[0]"); #on ouvre le fichier qu'on va lire
open(FILEOUT,">CombienPrematures.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
					# (pour éviter les lignes blanches)
		$ligne=~s/<(\w|-)*>//g;# enlève toutes les balises
		$ligne=~s/[0-9]//g; # enlève les chiffres qui se baladent tout seul
		$ligne=~s/,//g;# enlève les virgules qui se baladent toute seule
		$ligne=~s/-//g; # enlève les tirets qui se baladent tout seul
		$ligne=~s/\+//g; # enlève les plus qui se baladent tout seul
		$ligne=~s/^	//g; # enlève la tabulation de début de ligne
		$ligne=~s/^ //g; # enlève l'espace de début de ligne
		# si on enlève pas la tabulation et l'espace au début, 
		#il compte un mot en plus à chaque fois
		print FILEOUT $ligne;
		@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