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