home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / AWK210.ZIP / WORLD.AWK < prev    next >
Encoding:
AWK Script  |  1988-02-25  |  117 b   |  6 lines
  1. BEGIN { FS = "\t" }
  2.       { pop[$4] += $3 }
  3. END   { for (name in pop)
  4.             print name, pop[name]
  5.       }
  6.