# Fréquences des mots
# Afficher une liste des mots d'un état quelconque du corpus Prématurés en ordre alphabétique :
	### Combien de mots ont une fréquence de 1 ?
	### Combien de mots ont une fréquence inférieure à 10 ?

use locale;
open (FILEIN, "listefrequence.txt"); 	# ouverture du fichier sur lequel on travaille en lecture
$i=0;
$j=0;

while ($ligne = <FILEIN>) {
	if ($ligne=~/FREQUENCE : 1 /)
	{
	$i++;
	}
	if ($ligne=~/FREQUENCE : [0-9] /)
	{
	$j++;
	}

}

print "$i mots ont une frequence de 1 \n";
print "$j mots ont une frequence inferieure a 10 \n";

close(FILEIN);