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

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 元素时都会调用该处理程序。 $_ 是元素本身。