Question

我已经创建了以下XML文件来检索数据。

输入：

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<ExecutionLogs>
    <category cname='Condition1' cid='T1'>
        <log>value1</log>
        <log>value2</log>
        <log>value3</log>
    </category>
    <category cname='Condition2' cid='T2'>
        <log>value4</log>
        <log>value5</log>
        <log>value6</log>
    </category>
        <category cname='Condition3' cid='T3'>
        <log>value7</log>
    </category>
</ExecutionLogs>

我想要输出如下，

Condition1 -> value1,value2,value3
Condition2 -> value4,value5,value6
Condition3 -> value7

我已尝试过以下代码，

use strict;
use XML::Simple;
my $filename = "input.xml";
$config = XML::Simple->new();
$config = XMLin($filename);
@values = @{$config->{'category'}{'log'}};

请帮我解决这个问题。提前谢谢。

Answer 1

使用XML :: Twig执行此操作的方法：

#!/usr/bin/perl

use strict;
use warnings;

use XML::Twig;

XML::Twig->new( twig_handlers => { 
                   category => sub { print $_->att( 'cname'), ': ', 
                                           join( ',', $_->children_text( 'log')), "\n";
                               },
                },
              )

         ->parsefile( 'my.xml');

每次解析category元素时都会调用该处理程序。 $_是元素本身。

Answer 2

我会做什么：

use strict; use warnings;
use XML::Simple;
my $config = XML::Simple->new();
$config = XMLin($filename, ForceArray => [ 'log' ]);
#   we want an array here  ^---------------------^ 

my @category = @{ $config->{'category'} };
#              ^------------------------^
# de-reference of an ARRAY ref  

foreach my $hash (@category) {
    print $hash->{cname}, ' -> ', join(",", @{ $hash->{log} }), "\n";
}

输出

Condition1 -> value1,value2,value3
Condition2 -> value4,value5,value6
Condition3 -> value7

注意

ForceArray => [ 'log' ]确保在{category}->[@]->{log]中处理相同的类型除非这样，我们尝试在最后ARRAY的字符串上取消引用"Condition3"引用。

检查XML::Simple#ForceArray

和

使用XML :: Simple在Perl中检索数据

2 个答案:

输出

注意