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

Question

我在我的 mason 处理程序中收到了参数，它看起来格式如下：

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

我能够使用 $data['requests'] 访问请求。如何访问存储在请求中的值，即位置 ID 和唯一 Id ？我需要使用这些值通过以下方式形成另一个 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'}