Posted to tcl by patthoyts at Wed Nov 11 13:07:49 GMT 2009view raw

  1. # Demo processing a ChangeLog file
  2.  
  3. foreach author [exec sed -e {
  4. /^[12].*@/{
  5. s/^.*<//
  6. s/>.*$//
  7. p
  8. }
  9. d
  10. } ChangeLog] {
  11. incr authors([string tolower $author])
  12. }
  13.  
  14. parray authors