Matt McCutchen's Web Site
/
rsync
/
rsync.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
4e0b71d6b3a66b9dc3edf8c42c6f8ef8fbd37dbe
[rsync/rsync.git]
/
support
/
mapfrom
1
#!/usr/bin/perl
2
while (<>) {
3
push @_, "$2:$1" if /^(\w+):[^:]+:(\d+)/;
4
}
5
print join(',', @_), "\n";