Posted to tcl by patthoyts at Wed Nov 11 13:07:49 GMT 2009view pretty
# Demo processing a ChangeLog file
foreach author [exec sed -e {
/^[12].*@/{
s/^.*<//
s/>.*$//
p
}
d
} ChangeLog] {
incr authors([string tolower $author])
}
parray authors
# Demo processing a ChangeLog file
foreach author [exec sed -e {
/^[12].*@/{
s/^.*<//
s/>.*$//
p
}
d
} ChangeLog] {
incr authors([string tolower $author])
}
parray authors