17 lines
286 B
Awk
17 lines
286 B
Awk
|
# wordfreq.awk --- print list of word frequencies
|
||
|
|
|
||
|
|
{
|
||
|
|
$0 = tolower($0); # remove case distinctions
|
||
|
|
# remove punctuation
|
||
|
|
#gsub(/[^[:alnum:]_[:blank:]]/, "", $0);
|
||
|
|
|
||
|
|
for (i = 1; i <= NF; i++) freq[$i]++;
|
||
|
|
}
|
||
|
|
|
||
|
|
END {
|
||
|
|
for (word in freq)
|
||
|
|
print word, "\t", freq[word];
|
||
|
|
}
|
||
|
|
|
||
|
|
|