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是標量的參考，而實際上它是一個散列的引用

我做錯了什麼？

Answer 1

YAML使您能夠加載對象和標量引用。 JSON不默認

我懷疑你的數據文件最有可能包含一個內向外的對象，而JSON不知道如何使用標量引用。

下面演示裝載包含在值中的一個標量基準的YAML散列，然後未能使用JSON來編碼它：

use strict; 
use warnings; 

use YAML; 
use JSON; 

# Load a YAML hash containing a scalar ref as a value. 
my ($hashref) = Load(<<'END_YAML'); 
--- 
bar: !!perl/ref 
    =: 17 
foo: 1 
END_YAML 

use Data::Dump; 
dd $hashref; 

my $json_text = encode_json($hashref); 

輸出：

{ bar => \17, foo => 1 } 
cannot encode reference to scalar at script.pl line 18. 

Answer 2

它不是$ yaml_hash它抱怨，它是一個散列值（或更深）中的某個參考。標量引用可以用YAML表示，但不能用JSON表示。