xml - 必要な perl REST-API 出力

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 name="text">
    <tag1>4</tag1>
    <tag2>5</tag2>
    <tag3>6</tag3>
  </data>
</response>

結果の応答を次のようなものに変更することは可能ですか?

<response message="" status="200">
  <content name="text">
    <tag1>4</tag1>
    <tag2>5</tag2>
    <tag3>6</tag3>
  </content>
</response>

何を設定/発行する必要がありますか? 応答出力を変更しようとしましたが、役に立ちません。

score 0 · Accepted Answer

モジュールコードを調べて、解決策を見つけました（または正確には同僚の1人です）。

REST-APIは、ユーザーが選択したハッシュキーを受け入れます。

delete $resp->{data}; # Deletion of the defaulr data element
$resp->{content}->{'text'} = {map { $_ => [$text ->{$_}] } keys %$text};

1 に答える 1