#!/usr/bin/perl
open(IN,"$ARGV[0]"); 
open(OUT, ">nb.mots.txt"); 
while ($ligne = <IN>){ 
	    if ($ligne=~/\w+/){ # si la ligne contient des caractères, afin d'éviter les lignes blanches. On peut également utiliser ".+" ou "(.+) cf. ifdoublon2.pl, mais il ne prendra pas en compte le "_". 
		#$ligne=~s/<(\w*)>//g;
		#$ligne=~s/^ +//g; 
		$ligne=~s/\s+/ /g;
		#$ligne=~s/2//g;
		@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
		while ($mot=pop @tableau) {; # on retire le 1er élément du tableau. Fonctionne aussi avec "pop".
		$i++;
		#(($mot=~s/\./ /) || ($mot=~s/;/ /) || ($mot=~s/,/ /)); #possiblité de mettre les remplacements l'un a^près l'autre avec retour à la ligne # possible de mettre aussi s/.$/ / ; n'importe quel caractère en fin de ligne. 
		
}
}
}
print OUT  "$i\n";
close(IN); 
close(OUT);
#ne fonctionne plus du tout s'il y un espace au début de la ligne ou des doubles espace au milieu. d'ou les lignes 6 et 7.