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

发布时间：2020-12-15 21:21:55 所属栏目：大数据来源：网络整理

导读：我使用以下代码来编码一个简单的哈希 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 s

我使用以下代码来编码一个简单的哈希

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>

解决方法

你的代码似乎缺少一些重要的块，所以让我们添加一些丢失的位(我会在这里做一些假设)，并修复我们走的事情。

添加缺少的样板。

#!/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 %rec_hash = ('name'=>$name,'ttl'=>$ttl);

实际上使用encode_json方法(传递一个hashref)：

my $json = encode_json %rec_hash;

输出结果：

print $json;

而且，我可以期待没有错误。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!