summaryrefslogtreecommitdiff
path: root/tools/convert-xml-to-datadumper
blob: 26d8c273696fba9c8a91458f1a4a9b02e6ee88da (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl -w

use strict;
use XML::Parser;
use XML::Dumper;
use Data::Dumper;


my $parser = new XML::Parser(Style => 'Tree');
my $tree = $parser->parse( join ('', <stdin>) );
my $dump = new XML::Dumper;
my $CONFIG = $dump->xml2pl($tree);

print Data::Dumper->Dump([ $CONFIG ], [ $ARGV[0] ]);