gno/usr.bin/awk/tests/ch2p48.awk
tribby ddb82cb2e0 Remaining files for awk 2.0 that were left out of the previous checkin.
Maybe someday I'll become adept at using cvs...
1998-04-07 17:06:53 +00:00

6 lines
112 B
Awk

BEGIN { FS = "\t" }
{ pop[$4] += $3 }
END { for (name in pop)
print name, pop[name]
}