perl - Perl 中的散列取消引用

Question

我有一个 HASH 引用 $job，其中包含以下数据:

{
    "opstat"  : "ok",
    "response": {
                "group_id":23015,
                "order_id":"139370",
                "job_count":"10",
                "credits_used":"100.45",
                "currency":"USD"
                }
}

我想打印“response”键的散列值。我尝试这样做但没有成功

打印 %{$job->{'response'}}

编辑

我不需要任何格式。我想知道如何访问“response”键值中的每个元素。

Answer 1

I want to know how to access each element in the value of 'response' key.

根据定义，您需要某种循环。一个 foreach 循环是典型的，尽管您也可以使用 map。

for my $key (keys %{$job->{response}}) {
   my  $val = $job->{response}{$key};
   print("$key: $val\n");  # Or whatever
}

或

my $response = $job->{response};
for my $key (keys %$response) {
   my  $val = $response->{$key};
   print("$key: $val\n");  # Or whatever
}