在Perl中，检查json解码的布尔值

Question

解码的JSON布尔值是对象：

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;
use JSON;

my $json_string = '{"boolean_field":true}';
my $decoded_json = from_json $json_string;

print Dumper $decoded_json;

输出：

$VAR1 = {
          'boolean_field' => bless( do{\(my $o = 1)}, 'JSON::XS::Boolean' )
        };

从JSON.pm documentation我知道以下三种方法：

• JS​​ON :: is_bool
• JS​​ON ::真
• JS​​ON ::假

然而，由于一些愚蠢的原因，我不知道如何确定$decoded_json中'boolean_field'的值是真还是假。

（对不起，这是一个非常基本的问题;它一直让我感到沮丧！）

Answer 1

在Perl中它将是一个真正的价值。只是正常访问它。

print 'true' if $decoded_json->{'boolean_field'};