json - Perl 到 JSON，带有键/值对

Question

我正在尝试将一些数据从 Perl 输出到 JSON。我可以做一个简单的输出，但想更好地构造它。

我有一个带有 id、开始时间和结束时间的数组。这是我用来输出的代码：

print header('application/json');
my $json->{$entry} = \@array;
my $json_text = to_json($json);
print $json_text;

返回：

{"Season":[["1","1330065300","1344038401"],["7","1298505601","1312416001"]]}

但我想输出更像：

{"Season":0[{"id":1,"DateStart":1330065300,"DateEnd":1344038401},{"id":7,"DateStart":1298505601,"DateEnd":1312416001}]}

谁能帮助我更好地构建我的输出？

- -更新 - - -

谢谢迈克尔。我试图实现你的例子。

这是目前的代码：

foreach my $key (keys %$seasons)
    {
        $seasons->{$key} =
        [
            map
            {
                { id=>$_[0], DateStart=>$_[1], DateEnd=>$_[2] }
            } @{$seasons->{$key}}
        ];
    }

但它返回错误（参考 foreach 行）：

Not a HASH reference at line 148

$seasons 是从 SQL fetchall_arrayref 返回的 arrayref

有什么线索吗？

score 2 · Accepted Answer

如果要输出带有键/值对的对象数组而不是数组数组，则首先将适当的数据放入to_json其中。

即hashrefs 数组而不是arrayrefs 数组。

您可以使用map来转换数据。

score 2 · Accepted Answer

每当您尝试这样的事情时，请始终检查 CPAN 以查看是否有人以前做过，而不是尝试重新发明轮子。我发现了一个名为JSON的模块，它似乎完全符合您的要求。

该页面上有一个示例可以完全满足您的要求。这是一个快速的解释：

use JSON; # imports encode_json, decode_json, to_json and from_json.

# simple and fast interfaces (expect/generate UTF-8)
my $utf8_encoded_json_text = encode_json \@array;

没有比这更容易的了。最好的部分是，无论您的数组结构变得多么复杂，这都会起作用。

score 2 · Accepted Answer

您基本上想将数组数组转换为哈希数组，您可以使用map. 假设$data是您的结构，应该这样做：

for my $key (keys %$data) {
    $data->{$key} = [
        map {
            { id => $_->[0], DateStart => $_->[1], DateEnd => $_->[2] }
        } @{$data->{$key}}
    ];      
}

json - Perl 到 JSON，带有键/值对

3 回答 3

Related

Reference