comment on

From a quick look at the source of XML/DOM/Lite/Document.pm, I'd say you need

        my $B = $doc->selectNodes("A/B")->[$cpt]->nodeValue();
        my $D = $doc->selectNodes("A/C/D")->[$cpt]->nodeValue();
[download]

i.e. selectNodes returns an arrayref, not an object.

Other than that, you could make your loop look more "perly", by writing

if(defined($A_list)){
    for my $cpt (0..$#$A_list) {
        ...
    }
    print "\n\n";
}
[download]

That said, wouldn't it be easier to just iterate over the arrays returned by selectNodes, and call ->nodeValue on each element, instead of selecting the elements by index from the (same) result list that you retrieve over and over again (the xpath query yields the same result on every iteration of the loop).

In reply to Re: Retrieving an XML node value with XML::DOM::Lite and XML::Parser by Eliya
in thread Retrieving an XML node value with XML::DOM::Lite and XML::Parser by young_monk_love_perl

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.


Your skill will accomplish what the force of many cannot
	PerlMonks