how to separate strings from descending xml nodes get by to_literal function from xml::xmllib module in perl?

Question

I have XML structure in like this:

<A>
  <B>One</B>
  <C>Two</C>
  <D>
     <E>Three</E>
     <F>Four</F>
     ...
  </D>
  ...
</A>

Structure is big, complex and I know only begining, i.e: '/A'

and code in perl like this:

use XML::LibXML;
my $parser = XML::LibXML->new();
my $xml = $parser->parse_file($file);
print $xml->find('/A')->to_literal;

gives me result:

OneTwoThreeFour

If I use code like:

print join (" ", map { $_->to_literal } $xml->findnodes('/A/descendant::*'));

I get:

One Two ThreeFour Three Four

I need unique and sparate with withespaces values, i.e.:

One Two Three Four

How to do this?

score 2 · Accepted Answer · answered Mar 22 '12 at 11:37

2

The synopsis of XML::LibXML::Node gives you a hint:

@nodes = $node->findnodes( $xpath_expression );
$result = $node->find( $xpath );

So use the findnodes method to receive a list of results. Also, you want to select the children of the A element, change the XPath expression to fit:

my @children_literal_text = map { $_->to_literal } $xml->findnodes('/A/*');
# ('One', 'Two')

answered Mar 22 '12 at 11:37

daxim

39,270
4
65
132

http://stackoverflow.com/questions/3926589/how-to-select-all-leaf-nodes-using-xpath-expression – daxim Mar 22 '12 at 13:11
nice, but what if leaf node does not contain string? i.g. five ? With this solution I lost some data... – user1285573 Mar 22 '12 at 14:01
I'm tired of the question changing constantly. Good day. – daxim Mar 22 '12 at 14:20

how to separate strings from descending xml nodes get by to_literal function from xml::xmllib module in perl?

1 Answers1