home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gawk-2.15.6-src.tgz / tar.out / fsf / gawk / test / longwrds.awk < prev    next >
Text File  |  1996-09-28  |  455b  |  21 lines
  1. # From Gawk Manual modified by bug fix and removal of punctuation
  2. # Record every word which is used at least once
  3. {
  4.     for (i = 1; i <= NF; i++) {
  5.         tmp = tolower($i)
  6.         if (0 != (pos = match(tmp, /([a-z]|-)+/)))
  7.             used[substr(tmp, pos, RLENGTH)] = 1
  8.     }
  9. }
  10.  
  11. #Find a number of distinct words longer than 10 characters
  12. END {
  13.     num_long_words = 0
  14.     for (x in used) 
  15.         if (length(x) > 10) {
  16.             ++num_long_words
  17.             print x
  18.         }
  19.     print num_long_words, "long words"
  20. }
  21.