我的JSON
文字如下:
测试.json
{
"a" : false
}
我想DBM::Deep
为上面的 JSON 创建哈希。我的代码如下所示:
数据库文件
use strict;
use warnings;
use DBM::Deep;
use JSON;
use Data::Dumper;
# create the dbm::deep object
my $db = DBM::Deep->new(
file => 'test.db',
type => DBM::Deep->TYPE_HASH
);
my $json_text = do {
open( my $json_fh, $path )
or die("Can't open \$path\": $!\n");
local $/;
<$json_fh>;
};
my $json = JSON->new;
my $data = $json->decode($json_text);
print Dumper($data);
# create dbm::deep hash
eval { $db->{$path} = $data; };
if ($@) {
print "error : $@\n";
}
执行上述代码时,我得到以下输出/错误:
错误
$VAR1 = { 'a' => bless(do{(my $o = 0)}, 'JSON::XS::Boolean' ) }; 错误:DBM::Deep:不支持“SCALAR”类型的引用存储。在 dbm.pl 第 26 行
看起来,JSON 在内部使用 JSON::XS 来转换 JSON::XS::Boolean 对象中的“真”值,而 DBM::Deep 无法处理这个,而它可以处理空值。
虽然上面的代码适用于以下输入:
{
"a" : 'true' # if true is in quotes
}
或者
{
"a" : null
}
我尝试了很多东西,但没有任何效果。有没有人有任何解决方法?