Sophie

• Search
• Distribution
• Explorer
• Source & Patches
• Chat
• Help
• About

distrib > Mandriva > 2010.0 > i586 > media > contrib-release > by-pkgid > f80555589bd20faa45b9d4dabee180ba > files > 8

svn2cl-0.11-3mdv2010.0.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");