/ / Доступ до об'єктів Json в perl і повторне використання в іншому JSON - json, perl, mason

Доступ до об'єктів JSS в perl і повторне використання в іншому JSON - json, perl, 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
.
.
.

}

Відповіді:

2 для відповіді № 1

The $data["requests"] об'єкт повинен бути хеш на вашому шляху. Таким чином, ви можете отримати доступ до таких ключів, як:

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

or

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