0

我有两个类型的 xml 文件

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Package xmlns="whatever">
    <types>
        <members>test1</members>
        <name>test2</name>
    </types>
    <types>
        <members>test3</members>
        <name>test4</name>
    </types>
    <version>25.0</version>
</Package>

和

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Package xmlns="whatever">
    <types>
        <members>test5</members>
        <name>test6</name>
    </types>
    <version>25.0</version>
</Package>

我想使用 perl 连接这两个来产生结果

  <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
    <Package xmlns="whatever">
        <types>
            <members>test1</members>
            <name>test2</name>
        </types>
        <types>
            <members>test3</members>
            <name>test4</name>
        </types>
        <types>
            <members>test5</members>
            <name>test6</name>
        </types>
        <version>25.0</version>
    </Package>

如何使用 Perl 做到这一点？

4

2 回答 2

2

这是一个解决方案XML::LibXML。基本上它调用insertBefore方法将节点从第二个文档复制到第一个文档。根据需要调整脚本，例如，如果在两个包中找到相同的节点，则以不同的方式执行操作。

use strict;
use XML::LibXML;

my $xml1 = <<'EOF';
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Package xmlns="whatever">
    <types>
        <members>test1</members>
        <name>test2</name>
    </types>
    <types>
        <members>test3</members>
        <name>test4</name>
    </types>
    <version>25.0</version>
</Package>
EOF

my $xml2 = <<'EOF';
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Package xmlns="whatever">
    <types>
        <members>test5</members>
        <name>test6</name>
    </types>
    <version>25.0</version>
</Package>
EOF

my $doc1 = XML::LibXML->new->parse_string($xml1);
my $doc2 = XML::LibXML->new->parse_string($xml2);

my($version_node) = $doc1->findnodes('//*[local-name()="version"]');
die if !$version_node;

for my $types_node ($doc2->findnodes('//*[local-name()="types"]')) {
    $version_node->parentNode->insertBefore($types_node, $version_node);
}

print $doc1->serialize;
于 2013-09-19T15:21:32.967 回答
0

我将从 CPAN的XML::Merge开始

于 2013-09-19T14:50:38.977 回答