Sophie: svn2cl-0.12-2.mga1 noarch

svn2cl-0.12-2.mga1.noarch.rpm

Info
Deps
Files
Scripts
ChangeLog
Location
Others versions
Analyse

#!/usr/bin/perl

use XML::Simple;

my @authors;
while (<>) {
    /^(.*?):(.*)$/ and push @authors, { uid => $1, content => $2 };
}
print XMLout({ author => \@authors }, RootName => "authors");