Как преобразовать строку в JSON в Perl

Question

Я очень новичок в Perl, поэтому, пожалуйста, помогите мне в следующем

У меня есть один скрипт Perl для выполнения команды telnet.Этот скрипт получает ответ от сервера в виде строки.На самом деле сервер создает строку json, а затем отправляет ее клиентской программе, но клиентская программа показывает ее как string

Вопрос: Как я могу преобразовать эту строку в json и прочитать данные из этой строки json.

У меня есть строка json со структурой, аналогичной приведенной нижекак показано ниже

HASH(0x1af068c)

Заранее спасибо !!!

Answer 1

Вот фрагмент для преобразования JSON.Модифицировано для отлова ошибок.

use strict;
use warnings;
use JSON::XS;
use Try::Tiny;
use Data::Dumper::Concise;

my $data = qq<[{"success":"21","data":[{"name":"tester","lastname":"project"}]}]>;

my $decoded;

try {
    $decoded = JSON::XS::decode_json($data);
}
catch {
    warn "Caught JSON::XS decode error: $_";
};

print Dumper $decoded;

Answer 2

Я думаю, что есть более простой:

use JSON ();

$content = "{WHATEVER JSON CONTENT}";

$content = JSON->new->utf8->decode($content);