~vcs-imports/gawk/master

« back to all changes in this revision

Viewing changes to awklib/eg/prog/wordfreq.awk

• browse files at revision 28
• compare with another revision
• download diff
• download tarball
• view history from revision 28

Show diffs side-by-side

added

removed

awklib/eg/prog/wordfreq.awk

1

 

# Print list of word frequencies

 

1

# wordfreq.awk --- print list of word frequencies

 

2

 

2

3

{

3

4

    $0 = tolower($0)    # remove case distinctions

4

 

    gsub(/[^a-z0-9_ \t]/, "", $0)  # remove punctuation

 

5

    # remove punctuation

 

6

    gsub(/[^[:alnum:]_[:blank:]]/, "", $0)

5

7

    for (i = 1; i <= NF; i++)

6

8

        freq[$i]++

7

9

}

 

10

 

 

11

END {

 

12

    for (word in freq)

 

13

        printf "%s\t%d\n", word, freq[word]

 

14

}

8

15

END {

9

16

    sort = "sort +1 -nr"

10

17

    for (word in freq)

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1