mirror of
https://github.com/RsyncProject/rsync.git
synced 2026-02-01 10:42:05 -05:00
6 lines
104 B
Perl
6 lines
104 B
Perl
#!/usr/bin/perl
|
|
while (<>) {
|
|
push @_, "$2:$1" if /^(\w+):[^:]+:(\d+)/;
|
|
}
|
|
print join(',', @_), "\n";
|