DOM newbie problem, please help!

[jet.jetpac]

I've tried to write an application using XML:OM in perl. I'm not able
to getNoddeValue at text node.

XML FILE:
---
<sample param="some param">
<text_node> Test data. </text_node>
</sample>
---

My perl portion:
---
#!/usr/bin/perl

use strict;
use warnings;
use XML:OM;

my $parser = XML:OM:arser->new;
my $document = $parser->parsefile("test.xml");
my $value=$document->getDocumentElement->getFirstChild->getNodeValue;

print "$value\n";
----

The problem is, that $value is not set, getNodeValue returns null,
getNodeName returns '#text'. Can anybody PLEASE tell me, what am I
doing wrong? I'm almost ill of the testing...
Thanks for any help,
Peter

 

[Brian McCauley]

I've tried to write an application using XML:OM in perl. I'm not able
to getNoddeValue at text node.

You are not correctly interpreting your problem.

XML FILE:
---
<sample param="some param">
<text_node> Test data. </text_node>
</sample>
---

My perl portion:
---
#!/usr/bin/perl

use strict;
use warnings;
use XML:OM;

my $parser = XML:OM:arser->new;
my $document = $parser->parsefile("test.xml");
my $value=$document->getDocumentElement->getFirstChild->getNodeValue;

print "$value\n";

'null' is not a Perl concept. In Perl there is undef and there is empty
string. However in your test program getNodeValue does not return
either of these. It returns a string consisting of a newline character.

getNodeName returns '#text'. Can anybody PLEASE tell me, what am I
doing wrong? I'm almost ill of the testing...

You do not understand DOM. The element called <text_node> is not a text
node an element node that just happens to be called "text_node". The
text itself is in a text node that is a decendant of this element.

The DOM tree of your document (ignoring the attribute nodes) looks like

Document
\-Element name="sample" <-- this is the documentElement
|-Text data="\n" <-- this is the node you selected
|-Element name="text_node"
| \-Text data=" Test data. "
\-Text data="\n"

 

[jet.jetpac]

Thanks! Your DOM tree helped me to solve my problem.

Peter