{ nf = 0 while(nf < NF) { nf++ if($nf ~ /^\@/ || $nf ~ /^\%/) continue # omette le stringhe tra @ e spazio e % e spazio # if($nf ~ /^\$/ && $nf ~ /\$$/) continue # omette le stringhe tra $ e $ # if($nf ~ /^\Ÿ/ && $nf ~ /\Ÿ$/) continue # omette le stringhe tra Ÿ e Ÿ # if($nf ~ /^\#/ && $nf ~ /\@$/) continue # omette le stringhe tra # e @ # if($nf !~ /_/) continue if($nf == "") continue s = split($nf,field,"_") lun = length(field[1]) $nf = substr($nf,lun+1, (length($nf)-lun)) sub(/^_/,"",$nf) z = split($nf,fi,"(") n = 0 while(n < z) { n++ if(fi[n] == "") continue sub(/\(lem=/,"",fi[n]) sub(/lem=/,"",fi[n]) sub(/\)/,"",fi[n]) sub(/\;$/,"",fi[n]) codici = fi[n] tabella[codici]++ } } } END { for(word in tabella) { z = split(word,fiel,",") nu = tabella[word] sub(fiel[1],"",word) sub(/^\,/,"",word) word = " "word printf "%-27s %7d %5s\n", fiel[1], nu, word } }