XML::Hash::LX - Convert hash to xml and xml to hash using LibXML
use XML::Hash::LX; my $hash = xml2hash $xmlstring, attr => '.', text => '~'; my $hash = xml2hash $xmldoc; my $xmlstr = hash2html $hash, attr => '+', text => '#text'; my $xmldoc = hash2html $hash, doc => 1, attr => '+'; # Usage with XML::LibXML my $doc = XML::LibXML->new->parse_string($xml); my $xp = XML::LibXML::XPathContext->new($doc); $xp->registerNs('rss', 'http://purl.org/rss/1.0/'); # then process xpath for ($xp->findnodes('//rss:item')) { # and convert to hash concrete nodes my $item = xml2hash($_); print Dumper+$item }
This module is a companion for XML::LibXML. It operates with LibXML objects, could return or accept LibXML objects, and may be used for easy data transformations
XML::LibXML
It is faster in parsing then XML::Simple, XML::Hash, XML::Twig and of course much slower than XML::Bare ;)
It is faster in composing than XML::Hash, but slower than XML::Simple
Parse benchmark:
Rate Simple Hash Twig Hash::LX Bare Simple 11.3/s -- -2% -16% -44% -97% Hash 11.6/s 2% -- -14% -43% -97% Twig 13.5/s 19% 16% -- -34% -96% Hash::LX 20.3/s 79% 75% 51% -- -95% Bare 370/s 3162% 3088% 2650% 1721% --
Compose benchmark:
Rate Hash Hash::LX Simple Hash 49.2/s -- -18% -40% Hash::LX 60.1/s 22% -- -26% Simple 81.5/s 66% 36% --
Benchmark was done on http://search.cpan.org/uploads.rdf
xml2hash and hash2xml are exported by default
xml2hash
hash2xml
Inject toHash method in the namespace of XML::LibXML::Node and allow to call it on any subclass of XML::LibXML::Node directly
By default is disabled
use XML::Hash::LX ':inject'; my $doc = XML::LibXML->new->parse_string($xml); my $hash = $doc->toHash(%opts);
XML could be XML::LibXML::Document, XML::LibXML::DocumentPart or string
Id doc option is true, then returned value is XML::LibXML::Document, not string
doc
Every option could be passed as arguments to function or set as global variable in XML::Hash::LX namespace
XML::Hash::LX
Options respecting convertations from xml to hash
Strictly keep the output order. When enabled, structures become more complex, but xml could be completely reverted
Attribute prefix
<node attr="test" /> => { node => { -attr => "test" } }
Key name for storing text
<node>text<sub /></node> => { node => { sub => '', '#text' => "test" } }
Join separator for text nodes, splitted by subnodes
Ignored when order in effect
order
# default: xml2hash( '<item>Test1<sub />Test2</item>' ) : { item => { sub => '', '~' => 'Test1Test2' } }; # global $XML::Hash::LX::X2H{join} = '+'; xml2hash( '<item>Test1<sub />Test2</item>' ) : { item => { sub => '', '~' => 'Test1+Test2' } }; # argument xml2hash( '<item>Test1<sub />Test2</item>', join => '+' ) : { item => { sub => '', '~' => 'Test1+Test2' } };
Trim leading and trailing whitespace from text nodes
When defined, CDATA sections will be stored under this key
# cdata = undef <node><![CDATA[ test ]]></node> => { node => 'test' } # cdata = '#' <node><![CDATA[ test ]]></node> => { node => { '#' => 'test' } }
When defined, comments sections will be stored under this key
When undef, comments will be ignored
# comm = undef <node><!-- comm --><sub/></node> => { node => { sub => '' } } # comm = '/' <node><!-- comm --><sub/></node> => { node => { sub => '', '/' => 'comm' } }
Load the external DTD
# load_ext_dtd = 0 <!DOCTYPE foo [<!ENTITY % ent1 SYSTEM "rm -rf /">%ent1; ]><node> text</node> # load_ext_dtd = 1 <!DOCTYPE foo [<!ENTITY % ent1 SYSTEM "rm -rf /">%ent1; ]><node> text</node> oops!
Enable XInclude substitution. (See XML::LibXML::Parser)
Enable entities expansion. (See XML::LibXML::Parser). (Enabling also enables load_ext_dtd)
Enable validating with the DTD. (See XML::LibXML::Parser)
Forbid network access; (See XML::LibXML::Parser)
If true, all attempts to fetch non-local resources (such as DTD or external entities) will fail
Global array casing
Ignored when X2H{order} in effect
X2H{order}
As option should be passed as
xml2hash $xml, array => 1;
Effect:
# $X2A = 0 <node><sub/></node> => { node => { sub => '' } } # $X2A = 1 <node><sub/></node> => { node => [ { sub => [ '' ] } ] }
By element array casing
xml2hash $xml, array => [ nodes list ];
# %X2A = () <node><sub/></node> => { node => { sub => '' } } # %X2A = ( sub => 1 ) <node><sub/></node> => { node => { sub => [ '' ] } }
Options respecting convertations from hash to xml
XML output encoding
{ node => { -attr => "test", sub => 'test' } } <node attr="test"><sub>test</sub></node>
{ node => { sub => '', '#text' => "test" } } <node>text<sub /></node> # or <node><sub />text</node> # order of keys is not predictable
# trim = 1 { node => { sub => [ ' ', 'test' ], '#text' => "test" } } <node>test<sub>test</sub></node> # trim = 0 { node => { sub => [ ' ', 'test' ], '#text' => "test" } } <node>test<sub> test</sub></node>
When defined, such key elements will be saved as CDATA sections
# cdata = undef { node => { '#' => 'test' } } => <node><#>test</#></node> # it's bad ;) # cdata = '#' { node => { '#' => 'test' } } => <node><![CDATA[test]]></node>
When defined, such key elements will be saved as comment sections
# comm = undef { node => { '/' => 'test' } } => <node></>test<//></node> # it's very bad! ;) # comm = '/' { node => { '/' => 'test' } } => <node><!-- test --></node>
None known
XML::Parser::Style::EasyTree
With default settings should produce the same output as this module. Settings are similar by effect
Mons Anderson, <mons at cpan.org>
<mons at cpan.org>
Copyright 2009-2020 Mons Anderson, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install XML::Hash::LX, copy and paste the appropriate command in to your terminal.
cpanm
cpanm XML::Hash::LX
CPAN shell
perl -MCPAN -e shell install XML::Hash::LX
For more information on module installation, please visit the detailed CPAN module installation guide.