Question

我承认我是Perl的新手并且正在研究一些高级概念。所以，任何耐心和帮助表示赞赏。

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

对于' event '，可以指定多个主机并创建记录。这是我正在努力的地方，因为一个事件的每个条目必须是唯一的，我该如何实现这个目标？

我有一个存储在数组中的主机名列表。以下代码仅允许我传递单个主机。我需要确定如何迭代数组并使用相同的前导键值（hostname =＆gt;）传递每个主机。

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,
    },
};

perl，通过json发布数据

1 个答案: