/ / perlのJsonオブジェクトにアクセスし、別のJSONで再利用する - json、perl、mason

PerlでJsonオブジェクトにアクセスし、別のJSONで再利用する - json、perl、mason

私は次の形式で見える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
.
.
.

}

回答:

回答№1は2

$data["requests"] オブジェクトはあなたの方法でハッシュでなければなりません。したがって、次のようにキーにアクセスできます。

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

or

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