# dicomini.Awk pour Dos et Unix

BEGIN { fs = "tmp.tmp" }

(FNR==1) { print " Traitement des mots dans : " FILENAME }

{  nbl ++                              # comptage des lignes
   gsub(/["',.%#/]/ , " ")             # filtrage des séparateurs
   gsub(/[();:-]/, " ")                # élmination de la ponctuation
   for (i=1;i<=NF;i++) { ++mot[ $i ] } # comptage des mots
   nbm += NF }

END {  for (x in mot) {
         #if (x ~ /^[a-zA-Z_]/) {
            if (length(x)>35) { x = substr(x,1,35) }
            printf("%-40s %6d\n", x , mot[x]) > fs
         #} ;
         nbmd++
       }
       close(fs)
       print " on a vu " nbm " mot(s) sur " nbl " ligne(s) "
       print " soit " nbmd " mots différents dans " fs
     }