home *** CD-ROM | disk | FTP | other *** search
/ Mega CD-ROM 1 / megacd_rom_1.zip / megacd_rom_1 / GNUISH / FIND12.ZIP / UNIQ-C < prev    next >
Text File  |  1990-09-24  |  323b  |  19 lines
  1. #! c:/bin/awk
  2. # uniq-c - replace `uniq -c'
  3. # Copyright (C) 1990 by Thorsten Ohl, td12@ddagsi3.bitnet
  4.  
  5. BEGIN { count = 1
  6.     getline
  7.     last = $0
  8.       }
  9.       { if ($0 == last)
  10.       count++;
  11.     else
  12.       {
  13.         print "[" count "] " last
  14.         last = $0
  15.         count = 1
  16.       }
  17.       }
  18. END   { print "[" count "] " last }
  19.