json - perl，通过 json 发布数据

Question

我承认我是 Perl 的新手，并且正在研究一些高级概念。因此，感谢您的耐心和帮助。

我的目标是编写一个脚本，从用户那里收集数据，然后将其发布到网站，通过JSON. 我正在使用JSON和LWP

对于“事件”，可以指定多个主机并创建记录。这就是我苦苦挣扎的地方，因为一个事件的每个条目都必须是独一无二的，我该如何做到这一点？

我将主机名列表存储在一个数组中。下面的代码只允许我传递一个主机。我需要确定如何迭代数组并使用相同的前导键值（主机名 =>）传递每个主机。

my $params = {
    event => {
            owner => $user,
            hashtags => [$category],
            comment => $epic
            hostname => $hosts_modified,
    },
};

Answer 1

要将数组放入数据结构中，您需要创建对它的引用。\您可以通过在数组前面放置一个来做到这一点：

\@hosts_modified

通过此更改，您的代码将如下所示：

my $params = {
    event => {
            owner => $user,
            hashtags => [$category],
            comment => $epic
            hostname => \@hosts_modified,
    },
};