sys/src/cmd/dict/getneeds

   1 #!/bin/rc
   2 for (x in spec tag aux status) {
   3         grep ' '^$x^' ' $1 > junk1
   4         sort +4 -5 +3n -4 junk1 > junk2
   5         awk '{if ($5 != prev) print $0; prev = $5}' junk2 > junk3
   6         sort -n +2 -3 junk3 > need$x
   7         rm junk*
   8 }