37,718
社区成员
发帖
与我相关
我的任务
分享
use strict;
use warnings;
use XML::DOM;
my $parser=new XML::DOM::Parser;
my $doc=$parser->parse(<<XML);
<root>
<allProperty>
<news_title>yes</news_title>
</allProperty>
</root>
XML
my $nodes = $doc->getElementsByTagName("allProperty");
my $node = $nodes->item(0);
$node->getParentNode->removeChild($node); # delete allProperty
print $doc->toString();
use strict;
use warnings;
use XML::DOM;
my $parser=new XML::DOM::Parser;
my $doc=$parser->parse(<<XML);
<root>
<allProperty>
<news_title>yes</news_title>
</allProperty>
</root>
XML
my $nodes = $doc->getElementsByTagName("allProperty");
my $node = $nodes->item(0);
$node->getParentNode->removeChild($node); # delete allProperty
print $doc->toString();
my $parser=new XML::DOM::Parser;
my $doc=$parser->parsefile("d://news_temp.xml");
my $nodes=$doc->getElementsByTagName("allProperty");
my $parent=$nodes->[0]->getParentNode();
$parent->removeChild($nodes->[0]);