#Construire un programme qui compte le nombre de mots contenus dans un fichier. 
#Appliquez ce programme au poème de Baudelaire amants.txt et au fichier p96.fic
#!usr/bin/perl
$file = "$ARGV[0]"; 
open (FILEIN, $file);#ouvrire le fichier
$nbmots = 0;
$nbcar = 0;
while ($ligne = <FILEIN>) {
  @mots = split(/\s+/,$ligne);#couper le variable $ligne.
  foreach $mot (@mots) {
    next if ($mot =~/^d+\.?\d+$/);
    $mot =~s/[,.;:]$//; $nbmots ++;#compter les mots.
    $nbcar += length($mot);#compter les caractères.
  }
}
#imprimer le nombre de mots.
print ("Nombre total de mots :$nbmots\n");
#imprimer le nombre de caractère.
print ("Nombre total de caractères :$nbcar\n");
close(FILEIN);# fermer le fichier