home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 11 / AUCD11B.iso / LANGUAGES / WraithSet / AwkStuff / Awkify / Examples / words < prev   
Text File  |  1999-03-21  |  124b  |  8 lines

  1. # List Words
  2.  
  3. BEGIN { FS = "[^a-zA-Z]+" }
  4.  
  5. { for ( i = 1; i <= NF; i++)
  6.     if (!(x[$i]++) && length($i) >= 1 ) print $i }
  7.  
  8.