使用XML::LibXML查找和替换CableLabs 1.0 XML文件的特定部分

Question

我尝试过XML Simple，但由于它只是将XML读入散列，因此在针对DTD运行时输出是无用的。好不容易才学会的。

所以我采用了XML::LibXML，有趣的是我发现XML::Simple最难完成的要求是最容易的。然而，我发现在XML::Simple中做一些更容易的事情被证明是不可能的(由于我缺乏对DOM的理解，以及一些与XML::LibXML混淆的行为)。

下面是一个XML示例:

    <Metadata>
        <ADI Name="movie" />
        <App_Data Name="Something I don't care about" value="who cares" />
        <App_Data Name="Something I don't care about as well" value="who cares" />
        <App_Data Name="ChangeMe" Value="" />
    </Metadata>
    <Metadata>
        <ADI Name="photo" />
        <App_Data Name="Something I don't care about" value="who cares" />
        <App_Data Name="Something I don't care about as well" value="who cares" />
        <App_Data Name="ChangeMe" Value="" />
    </Metadata>
    <Metadata>
        <ADI Name="poster" />
        <App_Data Name="Something I don't care about" value="who cares" />
        <App_Data Name="Something I don't care about as well" value="who cares" />
        <App_Data Name="ChangeMe" Value="" />
    </Metadata>

注意:我已经简化了这篇文章的使用。

所以基本上我必须使用<ADI>标签中的Name字段来确认我在DOM的正确区域，以便更改<App_Data>标签中的Value属性，即谁的Name是ChangeMe。

这是我想出来的代码片段…结果惨败。

#!/usr/bin/perl
use strict;
use XML::LibXML;
my $xml2 = XML::LibXML->new();
my $data = $xml2->parse_file("adi.xml");
my $movie;
my $photo;
my $poster;
foreach my $test ($data->findnodes('//Metadata')) {
    if ($test->findvalues('./ADI/@Name[.="movie"]')){
        $movie = 1;
        undef $photo;
        undef $poster;
    }
    elsif ($test->findvalues('./ADI/@Name[.="photo"]')){
        undef $movie;
        $photo = 1;
        undef $poster;
    }
    elsif ($test->findvalues('./ADI/@Name[.="poster"]')){
        undef $movie;
        undef $photo;
        $poster = 1;
    }
}

除此之外我没有任何东西，因为它不起作用。在

这一行会出现错误

Can't locate object method "findvalues" via package "XML::LibXML::Element"

作为这个问题的额外奖励，如果我想完全删除包含照片和/或海报的<Metadata>(和所有子)，该怎么办?

Answer 1

新手可以试试。

#!/usr/bin/perl
use strict;
use XML::LibXML;
my $xml2 = XML::LibXML->new();
my $data = $xml2->parse_file("adi.xml");
foreach my $test ($data->findnodes('//Metadata')) {
    if ($test->findnodes('./ADI/@Name[.="movie"]')){
        print "movien";
    }
    elsif ($test->findnodes('./ADI/@Name[.="photo"]')){
        print "photon";
    }
    elsif ($test->findnodes('./ADI/@Name[.="poster"]')){
        print "postern";
    }
}

没有findvalues方法。您需要做的是使用findnodes，它将返回与XPath表达式匹配的节点列表。一旦你有了这些，你就可以遍历列表并提取你需要的任何数据，就像你已经为Metadata所做的那样。

另外，我假设您的XML文件有一个根级元素。我使用下面修改后的版本来测试上面的代码。

<root>
   <Metadata>
        <ADI Name="movie" />
        <App_Data Name="Something I don't care about" value="who cares" />
        <App_Data Name="Something I don't care about as well" value="who cares" />
        <App_Data Name="ChangeMe" Value="" />
    </Metadata>
    <Metadata>
        <ADI Name="photo" />
        <App_Data Name="Something I don't care about" value="who cares" />
        <App_Data Name="Something I don't care about as well" value="who cares" />
        <App_Data Name="ChangeMe" Value="" />
    </Metadata>
    <Metadata>
        <ADI Name="poster" />
        <App_Data Name="Something I don't care about" value="who cares" />
        <App_Data Name="Something I don't care about as well" value="who cares" />
        <App_Data Name="ChangeMe" Value="" />
    </Metadata>
</root>

我发现这个备忘单对Perl的LibXML库很有用。

Answer 2

• 你在哪里找到findvalues ?文档:

  @nodes = $node->findnodes( $xpath_expression );
  $result = $node->find( $xpath );
  print $node->findvalue( $xpath );
  

• 为什么.的使用如此之多?

  ./ADI/@Name[.="movie"]
  

  应该是

  ADI[@Name="movie"]
  

• 您有多个元数据元素，但您仅基于最后一个元素设置变量

• 你不应该使用三个不同的变量来存储一条信息

---

#!/usr/bin/perl
use strict;
use warnings;
use XML::LibXML qw( );
my $parser = XML::LibXML->new();
my $doc = $parser->parse_file("adi.xml");
for my $metadata ($doc->findnodes('//Metadata')) {
    my ($adi_type) = $metadata->find('ADI/@Name')
       or next;
    my ($app_data) = $metadata->find('App_Data[@Name="ChangeMe"]');
    if ($adi_type eq 'movie') {
       ...
    }
    elsif ($adi_type eq 'photo') {
       ...
    }
    elsif ($adi_type eq 'poster') {
       ...
    }
}

---

或者你甚至可以使用:

my ($movie_adi) = $doc->findnodes('//Metadata[ADI/@Name="movie"]');
my ($movie_app_data) = $movie_adi->findnodes('App_Data[@Name="ChangeMe"]');
...
my ($photo_adi) = $doc->findnodes('//Metadata[ADI/@Name="photo"]');
my ($photo_app_data) = $photo_adi->findnodes('App_Data[@Name="ChangeMe"]');
...
my ($poster_adi) = $doc->findnodes('//Metadata[ADI/@Name="poster"]');
my ($poster_app_data) = $poster_adi->findnodes('App_Data[@Name="ChangeMe"]');
...

Answer 3

在XPath表达式中可以做很多事情来查找您感兴趣的节点。

这个程序会按照你的要求去做。我已经添加了根元素<root>到您的数据，使其成为一个格式良好的XML文档。

use strict;
use warnings;
use XML::LibXML;
my $doc = XML::LibXML->load_xml(location => 'adi.xml', no_blanks => 1);
for my $metadata ($doc->findnodes('//Metadata')) {
  if ( $metadata->findnodes('ADI[@Name = "movie" or @Name = "photo"]') ) {
    $metadata->parentNode->removeChild($metadata);
  }
}
print $doc->toString(1);

<?xml version="1.0"?>
<root>
  <Metadata>
    <ADI Name="poster"/>
    <App_Data Name="Something I don't care about" value="who cares"/>
    <App_Data Name="Something I don't care about as well" value="who cares"/>
    <App_Data Name="ChangeMe" Value=""/>
  </Metadata>
</root>