#!/opt/local/bin/perl -w open(ROSTER,"<roster.txt") or die("unable to open the file\n"); open(FINAL,">>final.txt") or die("unable to open the file\n"); while(<ROSTER>) { chomp; if (/^.*:\((.*\@.*)\).*/) { print FINAL "$1\n"; } }
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#2 | 7321 | Stephen Moon | clean up | ||
#1 | 6466 | Stephen Moon | track2sql and other script files added |