使用Data::Dumper输出JSON布尔值时出现异常问题

我来帮你排查这个问题——其实你看到的“异常”并不是真的错误，而是Perl的JSON解析模块和Data::Dumper对布尔类型的处理逻辑差异导致的，下面详细拆解：

问题现象 #

当你运行这段代码后，输出里的m字段会显示类似这样的内容：

bless( do{my $o = 0)}, 'JSON::PP::Boolean' )

而不是你期望的false，这就是你所说的“布尔值处理异常”。

原因解析 #

1. Perl没有原生布尔类型：和很多语言不同，Perl本身并没有内置的布尔类型，通常用1表示真，0表示假。
2. JSON模块的布尔转换逻辑：你使用的JSON模块（默认底层是JSON::PP）会把JSON中的true/false转换成JSON::PP::Boolean类的实例——true对应被bless的1，false对应被bless的0。这样做的目的是保留JSON布尔值的语义，避免和普通数字混淆。
3. Data::Dumper的输出逻辑：Data::Dumper的职责是完整输出Perl数据结构的内部表示，所以它会如实打印出这个bless对象的结构，导致输出看起来不直观。

解决办法 #

这里提供几种不同的解决方案，你可以根据需求选择：

方案1：让JSON解析直接生成Perl原生的1/0 #

最简单的方法是在decode_json时指定boolean选项，让JSON的布尔值直接转换成Perl的数字1或0：

#!/usr/bin/perl
if ( not -f "$ARGV[0]" ) { die "$ARGV[0] not found: $!"; }
open(my $DATA, '<', "$ARGV[0]") || die "Can't open file: $!";
my $data = <$DATA>;
close($DATA);

use JSON qw(decode_json);
# 指定布尔值转换为1/0
my $tidy = decode_json($data, { boolean => sub { shift ? 1 : 0 } });

use Data::Dumper;
$Data::Dumper::Terse = 1;
$Data::Dumper::Sortkeys = 1;
print Dumper $tidy;

运行后，m字段会输出0（对应JSON的false），完全符合直观预期。

方案2：自定义Data::Dumper的输出，显示true/false字符串 #

如果你希望输出保留true/false的字符串形式，可以遍历数据结构，把JSON::PP::Boolean对象转换成对应的字符串：

#!/usr/bin/perl
if ( not -f "$ARGV[0]" ) { die "$ARGV[0] not found: $!"; }
open(my $DATA, '<', "$ARGV[0]") || die "Can't open file: $!";
my $data = <$DATA>;
close($DATA);

use JSON qw(decode_json);
my $tidy = decode_json($data);

# 递归处理布尔对象
sub convert_booleans {
    my $ref = shift;
    if (ref($ref) eq 'HASH') {
        foreach my $key (keys %$ref) {
            $ref->{$key} = convert_booleans($ref->{$key});
        }
    } elsif (ref($ref) eq 'ARRAY') {
        foreach my $i (0..$#$ref) {
            $ref->[$i] = convert_booleans($ref->[$i]);
        }
    } elsif (ref($ref) eq 'JSON::PP::Boolean') {
        return $$ref ? 'true' : 'false';
    }
    return $ref;
}

$tidy = convert_booleans($tidy);

use Data::Dumper;
$Data::Dumper::Terse = 1;
$Data::Dumper::Sortkeys = 1;
print Dumper $tidy;

这样输出的m字段会是'false'字符串，更贴近JSON原有的语义。

方案3：换用更友好的输出模块（推荐） #

如果可以替换输出工具，Data::Printer是个更好的选择——它默认就能识别JSON::PP::Boolean对象，直接输出true/false，代码更简洁：

#!/usr/bin/perl
if ( not -f "$ARGV[0]" ) { die "$ARGV[0] not found: $!"; }
open(my $DATA, '<', "$ARGV[0]") || die "Can't open file: $!";
my $data = <$DATA>;
close($DATA);

use JSON qw(decode_json);
my $tidy = decode_json($data);

use Data::Printer;
p $tidy;

输出会非常清晰，比如其中一个元素会显示：

{
    i   "m1QhFLZ2CI",
    m   false,
    n   "v8_skillgames",
    s   21254,
    t   1522783462114739392
}

额外提醒 #

其实即使不做任何处理，这些JSON::PP::Boolean对象在Perl的条件判断里是正常工作的——比如if ($tidy->[0]{m})会正确判断为假，因为它本质上是bless的0，Perl会把它当作假值处理。只是Data::Dumper的输出不够友好而已。

内容的提问来源于stack exchange，提问作者user2784466