[rsync/rsync.git] / support / mapfrom

#!/usr/bin/perl
while (<>) {
    push @_, "$2:$1" if /^(\w+):[^:]+:(\d+)/;
}
print join(',', @_), "\n";
Commit	Line	Data
2df20057 WD	1	#!/usr/bin/perl
	2	while (<>) {
	3	push @_, "$2:$1" if /^(\w+):[^:]+:(\d+)/;
	4	}
	5	print join(',', @_), "\n";