home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / AWKBYTE.ZIP / PHDATA.AWK < prev   
Encoding:
Text File  |  1991-03-25  |  418 b   |  11 lines
  1. # this is the AWK program phdata.awk (I use Rob Duff's dos version of AWK)
  2. # to run on datacma.asc,  enter:
  3. #               awk -F, phdata.awk datacma.asc 
  4. # see p 246 in the April 91 BYTE mag for basic version
  5. # and context.
  6.  
  7. $5 ~ /(phone|Phone)/ {y = substr($2,7,2)
  8.                     year[y] = year[y]+$3 }
  9. END                 {for (i in year)
  10.                     print "total for 19" i,"was", year[i] }
  11.