gpt4 book ai didi

json - Perl: JSON::XS 是否可以强制 boolean 解码为 1/0?

转载 作者:行者123 更新时间:2023-12-03 03:21:09 25 4
gpt4 key购买 nike

包 JSON::XS 使用 JSON::XS::Boolean 对象来表示 true/false。是否可以强制将 true/false json 值解码为 1/0 Perl 数字?

#!/usr/bin/env perl

use JSON::XS;
use Data::Dumper;

my $json = decode_json(join('', <DATA>));
print Dumper $json;

__DATA__
{
"test_true": true,
"test_false": false
}

输出:

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

我想要在decode_json之后有这样的东西:

$VAR1 = {
'test_true' => 1,
'test_false' => 0
};

原因:在某些情况下,很难预测 JSON::XS::Boolean 将如何使用 SOAP 序列化程序或其他序列化程序进行序列化。

PerlMonks discussion .

最佳答案

没有。这些值是受祝福的对象。它们只能具有 JSON::XS::Boolean 中允许的值。

关于json - Perl: JSON::XS 是否可以强制 boolean 解码为 1/0?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47264938/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com