chlog-stats
上传用户:gzpyjq
上传日期:2013-01-31
资源大小:1852k
文件大小:1k
源码类别:

手机WAP编程

开发平台:

WINDOWS

  1. #!/usr/bin/awk -f
  2. #
  3. # Compute some simple statistics from a ChangeLog file. Output has several
  4. # columns:
  5. #
  6. #   1) number of changelog entries
  7. #   2) total lines in changelog entries
  8. #   3) average lines per entry
  9. #   4) username
  10. #
  11. # Output is not sorted. Use "sort -n" to sort.
  12. #
  13. # Lars Wirzenius
  14. /^[a-zA-Z0-9]/ {
  15.     match($NF, /<.*@/)
  16.     who = substr($NF, RSTART+1, RLENGTH-2)
  17.     if (who == "") who = $NF
  18.     entries[who]++
  19.     next
  20. }
  21. /[^  ]/ { lines[who]++ }
  22. END {
  23.     for (who in entries)
  24. printf "%4d %4d %.1f %sn", entries[who], lines[who], 
  25.          lines[who]/entries[who], who
  26. }