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

14 lines
366 B
Awk
Raw Normal View History

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);
}