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

解码后的 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;

Output:

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

来自JSON.pm 文档 http://search.cpan.org/perldoc/JSON我知道的有以下三种方法：

• JSON::is_bool
• JSON::真
• JSON::假

但是，由于某些愚蠢的原因，我不知道如何确定“boolean_field”的值是否在$decoded_json是真是假。

（抱歉这个非常基本的问题；它让我抓狂！）

这将是 Perl 中的真实值。只需像平常一样访问即可。

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