如何在 Perl 5 中保留 YAML 文档中的布尔类型？

Question

我有一个包含布尔值的 YAML 文档：

---
ok: false

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

我编写的以下转换器无法保留布尔值：

#!/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 加载器中存在一些钩子来将 true/false 映射到 JSON::true/JSON::false 或 $Types::Serialiser::true/$Types::Serialiser::false。

Answer 1

如果存在这样的 YAML 模块，它必须是一个非常晦涩难懂的模块。您在此处使用的 YAML::XS 只是将 YAML 数据中的布尔值转换为标准内部值 PL_sv_yes 和 PL_sv_no，而这些（据我所知）无法识别为特殊值。

从积极的方面来说，修补 YAML::XS 以将 Types::Serialiser 用于布尔值并发送拉取请求似乎非常简单。