Question

我是Perl脚本的新手。我需要帮助来获取total-alarms的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";

有什么想法吗？

Answer 1

这是一种使用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

产量：

Answer 2

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

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

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

注册命名空间。 E.g。
```
$xc->registerNs('a' => "url.com");
```

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

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

现在可以按预期提取属性的值。

使用perl获取xml属性值

2 个答案: