Accediendo a objetos Json en Perl y reutilizándolos en otro JSON - json, perl, mason

He recibido argumentos en mi controlador de albañil que se ve en el siguiente formato:

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

Puedo acceder a las solicitudes usando $data["requests"]. ¿Cómo accedo a los valores almacenados en las solicitudes, es decir, locationId y uniqueId? Necesito usar estos valores para formar otro JSON de la siguiente manera:

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

}

Respuestas

los $data["requests"] objeto debe ser un hash en tu camino. Para que pueda acceder a las claves como en el siguiente:

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

or

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