You might want to try a different module, XML::Rules.
use strict; use XML::Rules; use Data::Dumper qw(Dumper); my $parser = XML::Rules->new( stripspaces => 15, rules => { 'type,author' => sub { return ( $_[0].'Id' => $_[1]->{id}, $_[ +0] => $_[1]->{_content}); }, field => sub { return ( $_[1]->{name} => $_[1]->{_content}); } +, data => 'pass no content', node => 'pass no content' } ); print Dumper($parser->parse(\*DATA)); __DATA__ <?xml version="1.0" encoding="Windows-1252"?> <node id="11100665" title="Re^5: What does $_ = qq~"$_"~ do? +" created="2019-05-28 16:28:57" updated="2019-05-28 16:28:57"> <type id="11"> note</type> <author id="830549"> haukex</author> <data> <field name="doctext"> <p>More fun facts! I once wrote a script to search a word list f +or words that make valid regexen which convert one valid word into an +other.</p> <c> $ perl -le 'print bangs =~s engender' bands $ perl -le 'print halved =~s avatar' halted $ perl -le 'print stove =~s evener' stone </c> </field> <field name="root_node"> 11100593</field> <field name="parent_node"> 11100640</field> <field name="reputation"> 21</field> </data> </node>
Jenda
Enoch was right!
Enjoy the last years of Rome.
In reply to Re: XML::Twig and the monasteries XML
by Jenda
in thread XML::Twig and the monasteries XML
by LanX
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |