json - 如何在 Perl 5 中保留 YAML 文档中的 boolean 类型？

Question

我有一个包含 boolean 值的 YAML 文档:

---
ok: false

我想在 Perl 5 中加载它并保留“boolean ”类型，以便以后能够使用 true 将文档正确序列化为 JSON/ false值，而不是 ""/ "1" .

我编写的以下转换器无法保留 boolean 值:

#!/usr/bin/env perl

use strict;
use warnings;

use YAML::XS qw<LoadFile>;
use JSON::MaybeXS ();

print JSON::MaybeXS->new->ascii->pretty->canonical->encode(LoadFile shift)

这是(损坏的)输出:

{
   "fine" : ""
}

我希望某些 YAML 加载器中存在一些 Hook 来映射 true/ false至 JSON::true/ JSON::false或 $Types::Serialiser::true/ $Types::Serialiser::false .

Answer 1

如果存在这样的 YAML 模块，它必须是一个非常晦涩的模块。你在这里使用的那个，YAML::XS简单地将 YAML 数据中的 boolean 值转换为标准内部值 PL_sv_yes和 PL_sv_no ，而那些(据我所知)不可能被认为是特别的。

从积极的方面来说，修补 YAML::XS 似乎很简单。使用 Types::Serialiser对于 boolean 值并发送拉取请求。