DBM :: Deep无法导入具有“true”或“false”值的hashref

Question

我有JSON文字，如下所示：

test.json

{
  "a" : false
}

我想为上面的JSON创建DBM::Deep哈希。我的代码如下所示：

dbm.pl

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'=＆gt;祝福（做{（my $ o = 0）}，'JSON :: XS :: Boolean'）               };       错误：DBM :: Deep：不支持存储“SCALAR”类型的引用。在dbm.pl第26行

看起来，JSON内部使用JSON :: XS转换JSON :: XS :: Boolean对象中的'true'值，而DBM :: Deep无法处理此问题，而它可以处理null值。

虽然上面的代码适用于以下输入：

{
  "a" : 'true'  # if true is in quotes
}

或

{
  "a" : null 
}

我尝试了很多东西，但没有任何效果。有没有人有任何解决方法？

Answer 1

您正在使用的JSON解析器返回一个在JSON中遇到true或false时作为布尔值的对象。这允许将数据重新编码为JSON而不做任何更改，但它可能会导致此类问题。

null没有这个问题，因为Perl有一个原生值（undef）可以用来明确地表示它。

以下将这些对象转换为简单值。

 sub convert_json_bools {
    local *_convert_json_bools = sub {
        my $ref_type = ref($_[0])
            or return;

        if ($ref_type eq 'HASH') {
            _convert_json_bools($_) for values(%{ $_[0] });
        }
        elsif ($ref_type eq 'ARRAY') {
            _convert_json_bools($_) for @{ $_[0] };
        }
        elsif ($ref_type =~ /::Boolean\z/) {
            $_[0] = $_[0] ? 1 : 0;
        }
        else {
            warn("Unsupported type $ref_type\n");
        }
    };

    &_convert_json_bools;
}

convert_json_bools($data);

Answer 2

您的代码适用于我，唯一的变化是设置

my $path = 'test.json';

您应该检查您的模块版本号。这些是我有的

print $DBM::Deep::VERSION, "\n";    # 2.0013
print $JSON::VERSION, "\n";         # 2.90
print $JSON::XS::VERSION, "\n";     # 3.02

我正在运行Perl v5.24.0

转储输出如下

新创建的DBM::Deep数据库

$VAR1 = bless( {}, 'DBM::Deep::Hash' );

$json->decode

的输出

$VAR1 = {
          'a' => undef
        };

DBM::Deep

后填充的eval数据库

$VAR1 = bless( {
                 'test.json' => bless( {
                                         'a' => undef
                                       }, 'DBM::Deep::Hash' )
               }, 'DBM::Deep::Hash' );

所有这些看起来应该是