#!/usr/bin/perl 
#ouvrir le fichier p96.fic en lecture
open(FICHIER, "amants.txt");
#créer la variable ligne contenant une ligne
$ligne = <FICHIER>;
#ouvrir le fichier résultat resultat1.txt en écriture
open(RESULTAT, ">resultat1.txt");
#créer un compteur
$nbredemots=0;

#tant qu'il y a des lignes dans le fichier, on coupe la ligne en mots
while ($ligne = <FICHIER>){
    	@MOTS = split(/\W+/,$ligne);
	#pour chaque mot coupé, incrémenter le compteur
	foreach $MOT (@MOTS){
	$nbredemots++;
	}
}
#écrire le résultat
print RESULTAT "le fichier contient ", $nbredemots, " mots \n";
    
#fermer les deux fichiers
close(RESULTAT);
close(FICHIER);
