Декодирование Hash от JSON-String в Perl

Question

Почему это не работает?

my $myHashEncoded = encode_json \%myHash; 
my %myHashDecoded = decode_json($myHashEncoded); 

Я получаю ошибку:

Reference found where even-sized list expected at ... 

Так что я изменил его:

my $myHashEncoded = encode_json \%myHash; 
my $myHashDecoded = decode_json($enableInputEncoded); 

Но тогда, очевидно, %myHash не то же самое, как $myHashDecoded.

Как восстановить правильный хэш из строки JSON?

Answer 1

Предполагая, что вы используете JSON.pm, the documentation says:

The opposite of encode_json: expects an UTF-8 (binary) string and tries to parse that as an UTF-8 encoded JSON text, returning the resulting reference.

Таким образом, вы получаете обратно то, что вы положили в Ты ставишь в hashref и вы получаете hashref назад..

Если вы хотите регулярного хэша, то вы просто разыменования его, как и любой другой hashref:

my $myHashRefDecoded = decode_json($myHashEncoded); 
my %myHashDecoded = %$myHashRefDecoded; 

Answer 2

Вы кодируете ссылку на хэш (encode_json \%myHash), что является правильным. Поэтому, когда вы декодируете строку JSON, вы получаете ссылку на хэш. Подготовьте сингл % к хеш-ссылке, чтобы разыскать его.

$myHashReferenceDecoded = decode_json($myHashReferenceEncoded); 
%myHashDecoded = %$myHashReferenceDecoded; 

Answer 3

JSON API соответствует. Если вы используете ссылку на хэш во время кодирования, вы также получаете хеш-ссылку при декодировании. Итак, если вы хотите сохранить результат в чистой хэш-переменной, вы должны разыменовать результат decode_json с %{ ... }.

Решение:

my $myHashEncoded = encode_json \%myHash; 
my %myHashDecoded = %{ decode_json($myHashEncoded) }; 

Обратите внимание, что разыменования хэша является дорогостоящей операцией. Вы действительно должны подумать, если в вашем коде использовать ссылку недостаточно.

Answer 4

На следующей строке, вы делаете две вещи: вы создаете ссылку на хэш (\), и кодировать результат (encode_json):

my $myHashEncoded = encode_json(\%myHash); 

Одна следующая строка, вы декодировать JSON (decode_json), но вы не отменяете ссылку.

my %myHashDecoded = decode_json($myHashEncoded); 

Реальная обратная операция будет включать в себя хеширование.

my %myHashDecoded = %{ decode_json($myHashEncoded) }; 

Но это ненужно делает (неглубокую) копию хеша. Возможно, вам стоит просто работать с ссылкой.

my $myHashDecoded = decode_json($myHashEncoded); 

Кстати, причина используется ссылка является то, что невозможно передать хеш к югу или возвращать хэш из суб. Можно передавать и возвращать только список скаляров.