perl - 如何从xml文件中提取属性值

Question

我有一个这样的xml文件

<?xml version="1.0" encoding="UTF-8"?>
<xfdf xmlns="http://ns.adobe.com/xfdf/" xml:space="preserve">
<f href="C:\cFGCACHE-058cef2b85c09427e606b143bd75248e252d004e\alternative.pdf"/>
<ids modified="BF43C70442ECB74FA49833BBA44D4679" original="B4870CC046121A41B7D8F0838C87256D"/>
<fields>
<field name="FormInstanceID">
<value>SRSQSC88E48-1-1.320</value>
</field>
<field name="txt_bestelltKW">
<value></value>
</field>
</fields>
</xfdf>

现在我需要提取 f href 属性的值。我尝试过单行处理，但肯定有更好的方法。有什么想法吗？

谢谢

Answer 1

修复您的 XML 中的拼写错误后，我能够使用以下代码提取值:

#!/usr/bin/perl
use warnings;
use strict;

use XML::LibXML;

my $dom = 'XML::LibXML'->load_xml( file => 'example.xml' );
my $xc = 'XML::LibXML::XPathContext'->new;
$xc->registerNs('x', 'http://ns.adobe.com/xfdf/');

for my $href ($xc->findvalue('//x:f/@href', $dom)) {
    print $href, "\n";
}

我通常会找到 XML::LibXML太冗长了，所以我会使用 XML::XSH2 :

open example.xml ;
register-namespace x http://ns.adobe.com/xfdf/ ;
for //x:f echo @href ;