summaryrefslogtreecommitdiff
path: root/tools/convert-xml-to-datadumper
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2002-07-10 11:49:41 +0000
committerPeter Palfrader <peter@palfrader.org>2002-07-10 11:49:41 +0000
commitcb24c5433cefc0d82c834520b5bdc1ad855e58e2 (patch)
treecf8440f01f04727f62df39daa710d29a0b761ae9 /tools/convert-xml-to-datadumper
parenta13d3a3cde9174d2a6e2bb8d9c9a0f392883674e (diff)
Moved from XML to Data::Dumperecholot-2.0beta2
Diffstat (limited to 'tools/convert-xml-to-datadumper')
-rwxr-xr-xtools/convert-xml-to-datadumper14
1 files changed, 14 insertions, 0 deletions
diff --git a/tools/convert-xml-to-datadumper b/tools/convert-xml-to-datadumper
new file mode 100755
index 0000000..26d8c27
--- /dev/null
+++ b/tools/convert-xml-to-datadumper
@@ -0,0 +1,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] ]);