You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

12 lines
164 B

#!/usr/bin/perl -w
$nbmots = 0 ;
while (<>)
{
@tab_mots = split (/\W+/);
$nbmots += $#tab_mots + 1 ; # $nbmots += @tab_mots
}
print "nb de mots : $nbmots \n";