home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / GNU / FIND12AX.ZIP / LIB / UNIQ-C < prev    next >
Encoding:
Text File  |  1990-09-23  |  323 b   |  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.