Perl使用XML::DOM

damofeixue

# 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的值


本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u/21651/showart_1405544.html