如何使用 XML::XPath 获取属性？
Posted
技术标签:
【中文标题】如何使用 XML::XPath 获取属性？【英文标题】：How do I get attributes with XML::XPath? 【发布时间】：2021-10-04 13:38:41 【问题描述】：我有一个简短的 perl (cgi) 程序，它可以解析和显示一些天气数据。
我从带有嵌套值的 XML 源获取数据，每个值都有唯一的标签。
现在我得到一些包含多个条目的数据，由一个唯一的“类型”字段区分，然后每个字段都有一个（不同的）值。
以前的数据：
<weather ver="2.0">
<head>
<locale>en_US</locale>
</head>
<loc id="52557">
</loc>
<cc>
<tmp>16</tmp>
<flik>16</flik>
<t>Mostly Cloudy</t>
<bar>
<r>1022.35</r>
<d>steady</d>
</bar>
<wind>
<s>14</s>
<gust>N/A</gust>
<d>120</d>
<t>ESE</t>
</wind>
<hmid>77</hmid>
</cc>
</weather>
所以我可以这样访问：（相关片段..）
use XML::XPath;
use XML::XPath::Parser;
sub getData($)
my $url = http://wxdata.weather.com/wxdata/weather/local/52557?cc=*&unit=$unit;
return get($url);
# returned values are XML::XPath::Nodeset (not numbers, or strings!!)
my $xml = getData($zip);
$xp = XML::XPath->new($xml);
sub getVal($) ## ("tag")
my $tag = shift;
return $xp->findvalue($tag)->value();
sub postData($)
my $wind = getVal('//cc/wind/s');
if($wind=="calm") $wind=0;
my $gust = getVal('//cc/wind/gust');
my $dir = getVal('//cc/wind/d');
my $real = getVal('//cc/tmp');
my $felt = getVal('//cc/flik');
my $pres = getVal('//cc/bar/r');
etc.
print "Wind:: ", $wind, " (", $dir, "), Gust:: ", $gust, "\n";
现在字段是这样的，注意温度和风速如何具有相同的标签，但通过“类型”数据字段进行区分。：
<dwml version="1.0" xsi:noNamespaceSchemaLocation="http://graphical.weather.gov/xml/DWMLgen/schema/DWML.xsd">
<head>
...
</head>
<data type="current observations">
<parameters applicable-location="point1">
<temperature type="apparent" units="Fahrenheit" time-layout="k-p1h-n1-1">
<value>91</value>
</temperature>
<temperature type="dew point" units="Fahrenheit" time-layout="k-p1h-n1-1">
<value>77</value>
</temperature>
<humidity type="relative" time-layout="k-p1h-n1-1">
<value>63</value>
</humidity>
<direction type="wind" units="degrees true" time-layout="k-p1h-n1-1">
<value>310</value>
</direction>
<wind-speed type="gust" units="knots" time-layout="k-p1h-n1-1">
<value>NA</value>
</wind-speed>
<wind-speed type="sustained" units="knots" time-layout="k-p1h-n1-1">
<value>3</value>
</wind-speed>
<pressure type="barometer" units="inches of mercury" time-layout="k-p1h-n1-1">
<value>30.08</value>
</pressure>
</parameters>
</data>
</dwml>
我仍然可以访问任何唯一标签，例如
my $dir = getVal('//parameters/direction/value')
但不知道如何访问具有相同标签但“类型”字段不同的值。
my $gust = getVal('//parameters/wind-speed/gust/value'); ??
my $real = getVal('//parameters/temperature/value'); ??
【问题讨论】：
【参考方案1】：使用谓词，检查type 属性，例如XPath //parameters/wind-speed[@type='gust'] 或 //parameters/wind-speed[@type="gust"]。
【讨论】：
以上是关于如何使用 XML::XPath 获取属性？的主要内容，如果未能解决你的问题，请参考以下文章