如何在 Perl 中将简单的哈希转换为 json？

Question

我使用以下代码对简单的哈希进行编码，

use JSON;

my $name = "test";
my $type = "A";
my $data = "1.1.1.1";
my $ttl  = 84600;

@rec_hash = ('name'=>$name, 'type'=>$type,'data'=>$data,'ttl'=>$ttl);

但出现以下错误：

hash- or arrayref expected <not a simple scalar, use allow_nonref to allow this>

Answer 1

您的代码似乎缺少一些重要的块，因此让我们添加缺少的位（我将在这里做出一些假设）并修复问题。

添加缺少的样板。

#!/usr/bin/perl

use strict;
use warnings;

use JSON;

my $name = "test";
my $type = "A";
my $data = "1.1.1.1";
my $ttl  = 84600;

将散列设置为散列而不是数组，并且不要忘记对其进行本地化： my %

my %rec_hash = ('name'=>$name, 'type'=>$type,'data'=>$data,'ttl'=>$ttl);

实际上使用 encode_json 方法（向其传递 hashref）：

my $json = encode_json \%rec_hash;

输出结果：

print $json;

这正如我所期望的那样，没有错误。

Answer 2

尝试使用 %rec_hash = ... 代替。 @ 表示列表/数组，而 % 表示哈希。