получить массив в Perl из json_encode

Question

use LWP::UserAgent; 

Я делаю это в php, который затем вызывается из Perl:

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

И из сценария печати $data = perl->decoded_content, он возвращает:

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

Но я не могуудалось получить идентификатор и сообщение.Я пробовал $data{'id'} и $data->{'id'}, но все равно не повезло.

Answer 1

Чтобы декодировать JSON, вы должны использовать

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

my $data = decode_json($json);

. Это создаст ссылку на хеш , поэтому

$data->{id}