json - 在 Perl 中从 JSON-String 解码哈希

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;