awk'da kelime sayma programı

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
#!/usr/bin/awk -f
BEGIN {
    FS="[^A-Za-z]"
}
{
    for (i=1; i<NF; i++) {
        words[i]++;
    }
}
END {for (word in words) print word,words[word]}

Bir diğer gece yarısı çiziktiriği...