once again!
how do i get the text between two tags by parsing with XML::DOM
my programm....
#!/xprog/bin/perl -w
use XML::DOM;
my $file = '....xml';
my $parser = XML::DOM::Parser->new();
my $doc = $parser->parsefile($file);
my $nodes = $doc->getElementsByTagName('perl');
my $n = $nodes->getLength;
print "$n \n";
for (my $i=0; $i<$n; $i++)
{
my $node=$nodes->item ($i);
$nodelist=$node->getChildNodes;
my $z=$nodelist->getLength;
print "ResultItem ($i) : Anzahl der Tags: $z \n";
for (my $j=0;$j<$z;$j++)
{
my $contentnode=$nodelist->item ($j);
print $contentnode-> the text between the tags ;
print "\n";
}
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
