json - Perl YAML 到 JSON

Question

我想要做的应该非常简单明了。

use JSON;
use YAML;
use Data::Dumper;

my $yaml_hash = YAML::LoadFile("data_file.yaml");
print ref($yaml_hash) # prints HASH as expected
print Dumper($yaml_hash) # correctly prints the hash
my $json_text = encode_json($yaml_hash);

encode_json 错误提示:

cannot encode reference to scalar 'SCALAR(0x100ab630)' unless the scalar is 0 or 1

我无法理解为什么 encode_json 认为 $yaml_hash 是对标量的引用，而实际上它是对 HASH 的引用

我做错了什么？

Answer 1

它提示的不是 $yaml_hash，它是哈希值之一(或更深)中的一些引用。标量引用可以用 YAML 表示，但不能用 JSON。