如何在Perl中将简单数组编码为JSON？

Question

我在Perl中将对象编码为JSON字符串的所有示例都涉及哈希.如何将简单数组编码为JSON字符串？

use strict;
use warnings;
use JSON;
my @arr = ("this", "is", "my", "array");
my $json_str = encode_json(@arr);  # This doesn't work, produced "arrayref expected"

# $json_str should be ["this", "is", "my", "array"]

Answer 1

如果您运行该代码,您应该收到以下错误:

hash- or arrayref expected (not a simple scalar, use allow_nonref to allow this)

你只需要传递一个引用你的 \@arr

use strict;
use warnings;

use JSON;

my @arr = ("this", "is", "my", "array");
my $json_str = encode_json(\@arr);  # This will work now

print "$json_str";

输出

["this","is","my","array"]