tfe Homepage

20/05/2005

Nombre de mots dans un texte

toujours pour pas perdre:

perl -pe 'map { $c[s/[a-z]//ig]++; } split }{ print "max : ".($#c)." "' texte.txt