diff options
Diffstat (limited to 'tools/convert-xml-to-datadumper')
-rwxr-xr-x | tools/convert-xml-to-datadumper | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/tools/convert-xml-to-datadumper b/tools/convert-xml-to-datadumper deleted file mode 100755 index 003d383..0000000 --- a/tools/convert-xml-to-datadumper +++ /dev/null @@ -1,20 +0,0 @@ -#!/usr/bin/perl -w - -# In 2.0beta1 XML was used to store all relevant data -# 2.0beta2 ditched XML and went for Data::Dumper - -# This script takes the XML data from STDIN and -# prints the data in Data::Dumper perl style to stdout - -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] ]); |