[TP] Compter le nombre de mot dans un fichier

[cipher16]

Code: Tout sélectionner

#!/usr/bin/perl
#$file=shift;
#open(FILE,$file) or die "marche pas";
$nb_mot=0;
while(<>)
{
@chaine=split(/[\W]+/);
$nb_mot+=$#chaine==0?1+$#chaine:$#chaine;
}
print "Il y a ".$nb_mot." mots\n";