如何使用 XPath 查询 eXist？

Question

我决定使用 eXist 作为我用 Perl 编写的应用程序的数据库， 我正在尝试它。问题是我存储了具有以下结构的 .xml 文档

<foo-bar00>
    <perfdata datum="GigabitEthernet3_0_18">
        <cli cmd="whatsup" detail="GigabitEthernet3/0/18" find="" given="">
            <input_rate>3</input_rate>
            <output_rate>3</output_rate>
        </cli>
    </perfdata>
    <timeline>2011-5-23T11:15:33</timeline>
</foo-bar00>

，它位于“/db/LAB/foo-bar00/2011/5/23/11_15_33.xml”集合中。

我可以成功查询它，例如

my $xquery = 'doc("/db/LAB/foo-bar00/2011/5/23/11_15_33.xml")' ;

或 $xquery 可以等于 = doc("/db/LAB/foo-bar00/2011/5/23/11_15_33.xml")/foo-bar00/perfdata/cli/data(output_rate) 或者 = doc("/db/LAB/foo-bar00/2011/5/23/11_15_33.xml")/foo-bar00/data(timeline)

my ($rc1, $set) = $eXist->executeQuery($xquery) ;
my ($rc2, $count) = $eXist->numberOfResults($set) ;
my ($rc3, @data) = $eXist->retrieveResults($set) ;
$eXist->releaseResultSet($set) ;
print Dumper(@data) ;

结果是：

$VAR1 = {
  'hitCount' => 1,
  'foo-bar00' => {
    'perfdata' => {
      'cli' => {
        'given' => '',
        'detail' => 'GigabitEthernet3/0/18',
        'input_rate' => '3',
        'cmd' => 'whatsup',
        'output_rate' => '3',
        'find' => ''
      },
      'datum' => 'GigabitEthernet3_0_18'
    },
    'timeline' => '2011-5-23T11:15:33'
  }
};

--->鉴于我知道我想要从中检索信息的 xml 文档。 --->鉴于我想检索时间线信息。

当我写作时：

my $db_xml_doc = "/db/LAB/foo-bar00/2011/5/23/11_15_33.xml" ;
my ($db_rc, $db_datum) = $eXist->queryXPath("/foo-bar00/timeline", $db_xml_doc, "") ;
print Dumper($db_datum) ;

结果是：

$VAR1 = {
  'hash' => 1717362942,
  'id' => 3,
  'results' => [
    {
      'node_id' => '1.2',
      'document' => '/db/LAB/foo-bar00/2011/5/23/11_15_33.xml'
    }
  ]
};

问题是：如何检索“时间线”信息？似乎“node_id”变量（=1.2）可以指向“时间线”信息，但我该如何使用它？

谢谢。

Answer 1

use XML::LibXML qw( );

my $parser = XML::LibXML->new();
my $doc    = $parser->parse_file('a.xml');
my $root   = $doc->documentElement();

my ($timeline) = $root->findnodes('timeline');
if ($timeline) {
    print("Exists: ", $timeline->textContent(), "\n");
}

或者

my ($timeline) = $root->findnodes('timeline/text()');
if ($timeline) {
    print("Exists: ", $timeline->getValue(), "\n");
}

我可以使用 /foo-bar00/timeline 而不是 timeline，但我认为没有必要。

Answer 2

不知道您是否仍然感兴趣，但您可以将文档作为 DOM 检索并对 DOM 应用 xquery，或者更好的是，仅在提交到服务器的查询中提取所需的信息。

像这样的东西：

for $p in doc("/db/LAB/foo-bar00/2011/5/23/11_15_33.xml")//output_rate
return
    <vlaue>$p</value>