0

我试图弄清楚如何解析这个 XML 中<current></current>前 2 个（37%和）的值。61.8F我无法弄清楚，因为它们似乎具有相同的字段名称并且都在“传感器”下......任何帮助将不胜感激......

Perl 中的代码：

#!/usr/bin/perl

use XML::Simple;
use Data::Dumper;
use LWP::Simple;


$url = 'http://localhostmachine/output/XML/output.xml';

# create object
my $xml = XML::Simple->new();

# read XML file
$data = $xml->XMLin(get($url));

# print output
print Dumper($data);

我正在读取的 XML 文件的输出：

<?xml version="1.0" encoding="ISO-8859-1"?>
<?xml-stylesheet type="text/xsl" href="wpman.xsl"?>
<watchport>
<title>
<TxtTitle>Location#1</TxtTitle>
</title>
<sensor>
<type>Combo Sensor (Humidity)</type>
<name>ComboSensor000</name>
<status>OK</status>
<current>37%</current>
<high>42 (10/19/2009 @ 04:05PM)</high>
<low>28 (10/17/2009 @ 11:26AM)</low>
</sensor>
<sensor>
<type>Combo Sensor (Temperature)</type>
<name>ComboSensor000</name>
<status>OK</status>
<current>61.6F</current>
<high>65.8 (10/17/2009 @ 11:26AM)</high>
<low>60.1 (10/19/2009 @ 04:00PM)</low>
</sensor>
<sensor>
<type> </type>
<name> </name>
<status> </status>
<current> </current>
</sensor>
<sensor>
<type>Updated: 10/19/2009 @ 05:47 PM</type>
<name>(Updated every 2 minutes)</name>
<status> </status>
<current> </current>
</sensor>
</watchport>

非常感谢！

4

2 回答 2

7

我想这就是你想要的。

print $data->{sensor}[0]{current};
print $data->{sensor}[1]{current};
于 2009-10-19T22:49:34.873 回答
7

既然您已经得到了答案，那么这里有一些您可能会觉得有用的链接。

他们通过大量示例很好地介绍了使用引用和复杂的数据结构。

I'm not trying to dismissively throw an RTFM at you, please don't take my response in that way. Perl has a lot of docs, it can be hard to find your way around them when starting out. How to RTFM is a good resource that helps demystify the manual.

于 2009-10-19T23:18:39.450 回答