从json_encode获取perl中的数组

Question

use LWP::UserAgent; 

我用php制成，然后从perl中调用它：

      $data = array("id"=> $id, "message" => $test); 
      echo json_encode($data);

然后从打印$data = perl->decoded_content脚本返回：

  {"id": "1234****", "message":"hi"};

但是我无法获取ID和消息。我尝试了$data{'id'}和$data->{'id'}，但还是没有运气。

Answer 1

要解码JSON，请使用

use Cpanel::JSON::XS qw( );

my $data = decode_json($json);

这将产生对哈希的引用，因此

$data->{id}