jxh has asked for the wisdom of the Perl Monks concerning the following question:
use XML::Simple; my $struct = XMLin( \*DATA ); print XMLout($struct, noattr => 1 ); __DATA__ <myconfig_data name="aaa" > <level1 my_att="somestring"> <value>hello1</value> </level1> <level2> <value other_att="bbb">hello2</value> </level2> <level3> <value>hello3</value> </level3> </myconfig_data>
Gives result ( almost as desired ) :
<opt> <name>aaa</name> <level1> <my_att>somestring</my_att> <value>hello1</value> </level1> <level2> <name>value</name> <content>hello2</content> <other_att>bbb</other_att> </level2> <level3> <value>hello3</value> </level3> </opt>
First question : Why do I have element 'opt' not <myconfig_data> at the docroot level ?
My main question : Can this be done within XML::Twig ? My reason being, for some twig handlers, I wish to convert all attributes to tags...
The nearest I can get is as follows :
This creates the following structure :use Data::Dumper; use strict; use XML::Twig; my $xml_twig = XML::Twig->new( pretty_print => 'indented', NoLWP => 1, discard_spaces => 1, ); $xml_twig->parse ( \*DATA ) || die "\nError parsing data $@\n"; my $struct=$xml_twig->simplify( noattr => 1 ); print Dumper($struct); __DATA__ <myconfig_data name="aaa" > <level1 my_att="somestring"> <value>hello1</value> </level1> <level2> <value other_att="bbb">hello2</value> </level2> <level3> <value>hello3</value> </level3> </myconfig_data>
$VAR1 = { 'level1' => { 'value' => 'hello1' }, 'level2' => { 'value' => 'hello2' }, 'level3' => { 'value' => 'hello3' } };
Clearly this isnt correct. Variuos combinations of noattr =>0, / keeproot / keepattr havent helped.
Also, if the data structure was correct, how do I then use this to output my XML ?
Thanks.
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: XML::Simple $elt->noattr is there an equivalent using XML::Twig
by mirod (Canon) on Mar 01, 2006 at 05:59 UTC | |
by Anonymous Monk on Mar 01, 2006 at 11:23 UTC | |
by mirod (Canon) on Mar 01, 2006 at 13:59 UTC |