Shell Programming and Scripting

awk 'END {
  for (i = 0; ++i <= NR;) {
    split(data[i], t)
    print count[t[1]] "=" data[i]
    }
  }
{ 
  count[$1]++
  data[NR] = $0
  }' infile | 
    sort -k1,1r -k3,3n |
      cut -d= -f2

perl -ane'
  push @{$data{$F[0]}}, $F[1];
  END {
    for $k (sort { 
              @{$data{$b}} <=> @{$data{$a}} 
              } keys %data) {
      printf "%s %s\n", $k, $_ 
        for sort { 
              $a <=> $b 
              } @{$data{$k}};
      }
    }' infile

file1:
cat 3
cat 7
cat 1
dog 3
dog 5
dog 9
dog 1
ape 4
ape 2
ape 1
ape 2
ape 3
ape 4
ape 5
ape 6
ape 8
ape 7
ape 9
whale 3

cut -f1 -d' ' file1|uniq -c|sort -r|cut -d' ' -f8|while read x; do grep "$x" file1|sort -k2; done

dog 1
dog 3
dog 5
dog 9
cat 1
cat 3
cat 7
whale 3
ape 1
cat 1
dog 1
ape 2
ape 2
ape 3
cat 3
dog 3
whale 3
ape 4
ape 4
ape 5
dog 5
ape 6
ape 7
cat 7
ape 8
ape 9
dog 9

awk 'END {
  for (i = 0; ++i <= NR;) {
    split(data[i], t)
    print count[t[1]] "=" data[i]
    }
  }
{
  count[$1]++
  data[NR] = $0
  }' file1 |      sort -k1,1r -k3,3n |       cut -d= -f2

dog 1
dog 3
dog 5
dog 9
cat 1
cat 3
cat 7
whale 3
ape 1
ape 2
ape 2
ape 3
ape 4
ape 4
ape 5
ape 6
ape 7
ape 8
ape 9

awk '
{ c[$1]+=$2; x[NR]=$1; y[NR]=$0; z[NR]=$2; }
END {
  for (i=1;i<=NR;i++) {
    printf "%d %d :%s\n", c[x[i]], z[i], y[i];
  }
}
' file.txt | sort -k1nr,2 | sed 's/.*://'

awk 'END {
  for (i = 0; ++i <= NR;) {
    split(data[i], t)
    print count[t[1]] "=" data[i]
    }
  }
{ 
  count[$1]++
  data[NR] = $0
  }' infile | 
    sort -k1,1nr -k3,3n |
      cut -d= -f2

sort file|cut -f1 -d' '|uniq -c|sort -rn|while read y x; do grep "$x" file|sort -k2n; done