# Problèmes de segmentation
	# Manipulation, Constitution de dictionnaires et de nouveaux corpus
		# Construire un programme qui lit un état quelconque du corpus et compte le nombre de mots du fichier lu : pour obtenir le nombre de mots d'une phrase, il suffit de compter le nombre d'espaces et d'ajouter 1.

open (FILE, "p96.bal");
while ($mots=<FILE>)
	{
	@mots = split (/[\w]+/, $mots); # on transforme la variable $mots en un tableau de valeurs, en mettant une chaine de caractères par cellule
	$nbmots = $#mots+1; # ceci permet de compter la longueur du tableau et donc le nombre de mots 
	}
print "le nombre de mots de ce fichier est : $nbmots \n";

