qse/ase/test/awk/cou-027.awk

6 lines
136 B
Awk

BEGIN { FS = "\t"; }
{ pop[$4] += $3; }
END { for (c in pop)
printf ("%15s\t%6d\n", c, pop[c]) | "sort -t'\t' +1rn";
}