home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / gnuish / find12.arc / uniq-c < prev    next >
Text File  |  1990-09-23  |  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.