json - 在 Perl 中对哈希数组进行编码

Question

我正在尝试做一些看似非常简单的事情，但我不知道如何在 Perl 中做到这一点:我想输出一个 JSON 格式的哈希数组。

所讨论的哈希数组实际上是 DBIx::MyParse Item 的数组s 对象实例。这是我的代码:

use strict;
use DBIx::MyParse;
use JSON::PP;
my $json = JSON::PP->new->ascii->pretty->allow_nonref;

our $parser = DBIx::MyParse->new( database => "test", datadir => "/tmp/myparse" );
our $query = $parser->parse("UPDATE table1 SET field1 = 1;");

$json->convert_blessed(1);
print $json->encode(@{$query} );

这就是该脚本的输出:

"SQLCOM_UPDATE"

这实际上是我想要作为一个整体输出的数组的第一个元素。这是我在逐步调试脚本时看到的数组内容:

我希望在 JSON 输出中包含整个结构。我怎样才能实现这个目标？

Answer 1

JSON::encode 只需要一个参数，而不是一个列表。使用 $json->encode( $query )。