xml - 如何使用 Apache2::REST 在 XML 节点中创建具有属性的响应？

Question

我正在使用 Perl Apache2::REST，返回数据的标准方法是发出$resp->data()和分配一个值。我有这样的东西

my $text = {
    'tag1' => 4,
    'tag2' => 5,
    'tag3' => 6,
};

$resp->data()->{'text'} = {map { $_ => [$text ->{$_}] } keys %$text};

这给了我这样的回应

<response message="" status="200">
  <data>
    <tag1>4</tag1>
    <tag2>5</tag2>
    <tag3>6</tag3>
  </data>
</response>

我想知道如何在 XML 节点中创建具有属性的响应，tag1并且可以在同一级别上创建相同类型的标签？

所需的输出是

<response message="" status="200">
  <data>
    <tag1 id="abcd"> 4 </tag1>
    <tag1>
      <tag3 id="xyz"> 6 </tag3>
    </tag1>
  </data>
</response>

Answer 1

我认为这会起作用，但它会产生一些不同的输出

my $text2->{tag1} = [4,{tag3 => 6}];
$resp->data()->{'text'} = $text2;

问候，

编辑：

my $text2->{tag1} = [4,['val',{tag3 => 6}]]; 

Answer 2

该模块使用 XML::Simple 没有选项，但RootName. 知道了这一点，我们知道以下数据结构将产生您想要的输出。

my $data = {
   'tag1' => [
      {
         id => 'abcd',
         content => '4',
      },
      {
         'tag3' => [
            {
               id => 'xyz',
               content => '6',
            },
         ],
      },
   ],
};

测试：

use XML::Simple qw( XMLout );
print XMLout($data , RootName => 'data');

输出：

<data>
  <tag1 id="abcd">4</tag1>
  <tag1>
    <tag3 id="xyz">6</tag3>
  </tag1>
</data>

（它将提供response元素。）

Answer 3

XML::Simple解决方案是使用 perl 模块ForceArray => 1

$xml = '<tag1 a="' . '4' . '"b="4">';
$xml .= '<tag3 id="' . '3' . '">'; 
$xml .= '<tag2>' . '5' . '</tag2>';
$xml .= '</tag3>';
$xml .= '</tag1>';

my $tree = $simple->XMLin($xml, ForceArray => 1, KeyAttr => [ ]);
$resp->data()->{'xml'} = $tree;