Perl使用XML::DOM

# get parser
my $parser = new XML::DOM::Parser;
 
# parse xml file

my $doc = $parser->parsefile( $xmlfile );
 
# get first element

my $display = $doc->getElementsByTagName('display')->item(0);
 
# Server10101

my $name5 = $display->getElementsByTagName('name5');
my $n = $name5->getLength;
 
for(my $i=0; $i < $n; $i++)
{
    if( $i == 0 or $i == 1 )
    {
    next;
    }
    my $name = $name5->item($i);
    my $desc = $name->getAttribute('desc');
    foreach my $child ( $name->getChildNodes())
    {
        my $child_D = $child->getData;
        $child_D =~ s/Server//;
    print $desc ."=". $child_D . "\n";
    }
}

 

if ($node->getNodeType == ELEMENT_NODE)
  {
      foreach my $child ($node->getChildNodes())
     {
       return traverse($child);
     }
  }
  elsif ($node->getNodeType() == TEXT_NODE)
  {
    #print $node->getData . "\n";
    $data=$node->getData;
    return $data;
  }
问题的关键在于:($node->getNodeType() == TEXT_NODE 才能获取到element的值