Question

我在服务器上有一个文件，我想在Perl中解析。我已经使用XML:Simple和XML:LibXML进行了尝试，但在这两种情况下我都无法获取xml元素。

这是我的.xml文件：

<csixml version="1.0">
    <head>
    <details>
        <name-link>linkName</name-link>
        <table>links</table>
        <model>XS1-556</model>        
    </details>
        <fields>
            <field name="name1" />
            <field name="name2"/>
            <field name="name3"/>
            <field name="name4"/>
            <field name="name5"/>
            <field name="name6" />
            <field name="name7"/>
            <field name="name8"/>
            <field name="name9"/>
            <field name="name10"/>
            <field name="name11"/>
            <field name="name12x"/>
            <field name="name13"/>
            <field name="name14"/>
            <field name="name15"/>
            <field name="name16"/>
            <field name="name17"/>
        </fields>
    </head>
    <data>
        <record time="2017/06/01 00:00:00" no="742">
        <v1>14.85</v1>
        <v2>34.1</v2>
        <v3>600</v3>
        <v4>0</v4>
        <v5>0</v5>
        <v6>0</v6>
        <v7>0</v7>
        <v8>11.22</v8>
        <v9>0.41</v9>
        <v10>215</v10>
        <v11>7.043</v11>
        <v12>1.325</v12>
        <v13>2017-05-31T23:47:14</v13>
        <v14>202.3</v14>
        <v15>0</v15>
        <v16>42.85</v16>
        <v17>12.25</v17>
        </record>
        </data>
    </csixml>

这是代码：

my $parser = new XML::Simple;
$data = $parser->XMLin( get( $url ));

#print Dumper($data);

print $data->{'r'}[0]{'v1'};
print $data->{'r'}[1]{'v2'};

当我尝试使用XML：LibXML时，它给出了一个错误：

Start tag expected, '<' not found

Answer 1

XML :: Simple是不稳定的，不应该使用（even the author agrees），但是，如果说，这是一个相对简单的修复方法，可以使您的程序按预期工作。

您正在错误地处理数据结构。您需要仔细查看您的数据：转储器输出。您的$data变量等同于顶级<csixml>标记。其他一切都是哈希。因此，要获得所需的数据结构，您需要：

print $data->{data}{r}{v1}
print $data->{data}{r}{v2}

我也看到你正在使用“间接对象表示法”（new XML::Simple）来创建解析器对象。这通常可以正常工作，但是当它没有时，你会浪费几天试图找出出错的地方。相反，请使用标准语法 - XML::Simple->new。

更新：以下是我使用的代码：

#!/usr/bin/perl

use strict;
use warnings;

use Path::Tiny;
use XML::Simple;
use Data::Dumper;

my $file = 'test.xml';
my $xml  = path($file)->slurp;

my $parser = new XML::Simple;
my $data = $parser->XMLin($xml);

#print Dumper($data);

print $data->{data}{'r'}{'v1'};
print $data->{data}{'r'}{'v2'};

Answer 2

XML :: LibXML可能会抱怨一些稍微破碎的XML。 XML规范是严格的，并且除其他外说 - 错误是致命的。但它的确有效：

#!/usr/bin/env perl
use strict;
use warnings;
use XML::LibXML;

my $doc = XML::LibXML->load_xml ( IO => \*DATA );
foreach my $node ( $doc -> findnodes ( '//record/v2' ) ) {
   print $node -> textContent;
}

__DATA__
<csixml version="1.0">
    <head>
    <details>
        <name-link>linkName</name-link>
        <table>links</table>
        <model>XS1-556</model>        
    </details>
        <fields>
            <field name="name1" />
            <field name="name2"/>
            <field name="name3"/>
            <field name="name4"/>
            <field name="name5"/>
            <field name="name6" />
            <field name="name7"/>
            <field name="name8"/>
            <field name="name9"/>
            <field name="name10"/>
            <field name="name11"/>
            <field name="name12x"/>
            <field name="name13"/>
            <field name="name14"/>
            <field name="name15"/>
            <field name="name16"/>
            <field name="name17"/>
        </fields>
    </head>
    <data>
        <record time="2017/06/01 00:00:00" no="742">
        <v1>14.85</v1>
        <v2>34.1</v2>
        <v3>600</v3>
        <v4>0</v4>
        <v5>0</v5>
        <v6>0</v6>
        <v7>0</v7>
        <v8>11.22</v8>
        <v9>0.41</v9>
        <v10>215</v10>
        <v11>7.043</v11>
        <v12>1.325</v12>
        <v13>2017-05-31T23:47:14</v13>
        <v14>202.3</v14>
        <v15>0</v15>
        <v16>42.85</v16>
        <v17>12.25</v17>
        </record>
        </data>
    </csixml>

XML :: LibXML支持xpath，这对于您尝试执行的操作非常有用 - 您可以在文档中指定完整路径，也可以使用//指示“任何地方”在文件'。

所以：

/csixml/data/record/v2

或者：

//record/v2

会找到你想要的价值。

但也可以做其他有用的事情：

foreach my $node ( $doc -> findnodes ( '//record/*[string()="34.1"]' ) ) {
   print $node -> nodeName;
}

所以我认为这里的问题是你正在加载XML错误。它肯定适用于上面的示例（IO => \*DATA从特殊的内联DATA文件句柄加载，但它适用于您的示例）。

Answer 3

我尝试了所有的解决方案，但最终我找到了它：

my ($_xml) = new XML::Simple (KeyAttr=>[]);

    my $url = 'http://www.example.com';
    my $agent = LWP::UserAgent->new;
    my $request = HTTP::Request->new(GET => $url);
    $request->content_type('application/xml');
    my $response = $agent->request($request);

                if ($response->is_success) {
                     print "HTTP response is good\n";

                    my ($_message) = $response->decoded_content;
                    my ($_data) = $_xml->XMLin($_message,ForceArray => 1);  


                    foreach my $_e (@{$_data->{data}})
                    {   
                        foreach my $_r (@{$_e->{r}})
                        {

                        print $_r->{time}.": ".$_r->{no}."\n"; 

                        }                                                   
                    }

                } else {

                die "Awooga! HTTP request failed with ". $response->status_line;

                }

最后我使用XML:Simple并使用$_r->{time}获取我的xml元素，效果很好。我希望这对大家有所帮助，感谢大家！

从Perl中的XML文件中获取元素

3 个答案: