14 lines
366 B
Awk
14 lines
366 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";
|
|
|
|
# the following two statements make the program behave
|
|
# consistently across different platforms.
|
|
# on some platforms, the sort command output has
|
|
# been delayed until the program exits.
|
|
close ("sort -t'\t' +1rn");
|
|
sleep (1);
|
|
}
|