1

我是 Perl 脚本的新手。我需要帮助来获取总警报的 XML 属性值（在本例中为 11）。

<?xml version="1.0" encoding="utf-8"?>
<alarm-response-list xmlns="url.com" throttle="11" total-alarms="11">
  <alarm-responses>
    <alarm id="51ebf6fc-0571-1001-0162-008014000af00" />
    <alarm id="51ec0320-07af-1001-0162-008010400af00" />
    <alarm id="51ebf6f4-0564-1001-0162-008014000af00" />
    <alarm id="51ec1512-0bb2-1001-0162-008010400af00" />
    <alarm id="51ec157d-0bed-1001-0162-008010040af00" />
    <alarm id="51ebae1b-fa31-1000-0162-008010004af00" />
    <alarm id="51ec06d4-08bf-1001-0162-00801000a4f00" />
    <alarm id="51e8303f-740a-1000-0162-008014000af00" />
    <alarm id="51ebeabc-0352-1001-0162-008010400af00" />
    <alarm id="51ebf74d-0593-1001-0162-008010040af00" />
    <alarm id="51ebf78d-05b3-1001-0162-008010004af00" />
  </alarm-responses>
</alarm-response-list>

不成功，我尝试使用以下 Perl 代码：

my $parser4 = XML::LibXML->new();
my $doc4 = $parser4->parse_file($current_working_dir.'\POSTres.xml');
my $xc = XML::LibXML::XPathContext->new( $doc4->documentElement()  );
my $nod = $xc->findnodes('//alarm-response-list');
print "A: ".$nod->getAttributes("total-alarms")."\n";

任何想法？

4

2 回答 2

4

这是使用XML::Twig模块的一种方式：

#!/usr/bin/env perl

use warnings;
use strict;
use XML::Twig;

my $twig = XML::Twig->new(
    twig_roots => {
        '/alarm-response-list' => sub { printf qq|%s\n|, $_->att('total-alarms') },
    },  
)->parsefile(shift);

像这样运行它：

perl script.pl xmlfile

这会产生：

11
于 2013-09-24T21:45:27.647 回答
3

您的 XPath 表达式不匹配，因为您在 XML 文档中指定了命名空间：

<alarm-response-list xmlns="url.com" ...

如果我们在 XPath 上下文中注册该命名空间，那么我们可以使用 XPath 提取数据：

  1. 注册命名空间。例如

    $xc->registerNs('a' => "url.com");

  2. 在 XPath 中使用该命名空间，例如

    my ($alarms) = $xc->findvalue('//a:alarm-response-list/@total-alarms');

现在，正如预期的那样，这将提取属性的值。

于 2013-09-24T22:04:01.737 回答