在 perl 中访问 Json 个对象并在另一个 JSON 中重用它

Question

我在我的 mason 处理程序中收到了以下格式的参数：

$data = {
    'cacheParams' => 0,
    'requests' => {
        'locationId' => 1,
        'uniqueId' => [
            'ABC',
            'DEF',
            'XYZ'
        ]
    }
};

我可以使用 $data['requests'] 访问请求。如何访问存储在请求中的值，即 locationId 和 uniqueId ？我需要使用这些值以下列方式形成另一个 JSON：

my $input = {
    stateID => 44,
    locationId => requests.locationId,
    uniqueId => requests.uniqueId
    .
    .
    .

}

Answer 1

$data['requests'] 对象应该是您使用的散列。所以你可以像下面这样访问密钥：

$data['requests']->{'locationId'}
$data['requests']->{'uniqueId'}

or 

$requests = $data['requests']
$locationId = $requests->{'locationId'}
$uniqueId = $requests->{'uniqueId'}

在 perl 中访问 Json 个对象并在另一个 JSON 中重用它

Accessing Json objects in perl and reuse it in another JSON

perl

json

mason