home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / gnuawk.zip / awklib / eg / prog / dupword.awk < prev    next >
Text File  |  1997-03-15  |  414b  |  17 lines
  1. # dupword --- find duplicate words in text
  2. # Arnold Robbins, arnold@gnu.ai.mit.edu, Public Domain
  3. # December 1991
  4.  
  5. {
  6.     $0 = tolower($0)
  7.     gsub(/[^A-Za-z0-9 \t]/, "");
  8.     if ($1 == prev)
  9.         printf("%s:%d: duplicate %s\n",
  10.             FILENAME, FNR, $1)
  11.     for (i = 2; i <= NF; i++)
  12.         if ($i == $(i-1))
  13.             printf("%s:%d: duplicate %s\n",
  14.                 FILENAME, FNR, $i)
  15.     prev = $NF
  16. }
  17.