Нужен пример использования Perl JSON

Question

как мне разобрать строку JSON в Perl?

Примечание. Я - инженер по программному обеспечению C ++ / Java / C #, а не владею Perl-скриптом.

Я полностью прочитал JSON.pm"документацию" длянайти рабочий пример, но эти документы оказались полными и полным мусором. "пары из декодированной переменной perl.

Вот мой сценарий. Может кто-нибудь помочь?

use JSON;

my $json_string = '{"foo": "bar"}';
my $decoded_json = decode_json($json_text);
print $decoded_json["foo"];

std::map<string, string> mymap = convert_to_cplusplus(decoded_json); # doesn't work
my asfjsa;fjsa;fwe # doesn't work

Я разочаровался в конце.

Answer 1

Вам нужно использовать $decoded_json->{"foo"} --- обратите внимание на фигурные скобки, а не квадратные.Также обратите внимание, что стрелка -> --- decode_json возвращает ссылку.

Я с готовностью признаю, что документация в этом случае не поможет тем, кто еще не знает Perl, например, чтобыуровень знания того, что означает $perl_hash_or_arrayref.(Опытный программист на Perl сразу понимает, что это означает, что вы должны использовать ->.)