some-usable-scripts/PERL_Language/nbmots.pl

12 lines
164 B
Perl
Raw Normal View History

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