强制 YAML::Tiny 值是数字

Question

假设我有以下 YAML 文件：

---
task:
  1:
    command: '<task1_command>'
    desc: '<task1_description>'
  2:
    command: '<task2_command>'
    desc: '<task2_description>'

我使用 Perl 和 YAML::Tiny 读取文件：

$TASKS = YAML::Tiny->read(<YAML_file>);

而且我可以正常使用 desc/command 值，但如果我使用以下方式编写 TASKS 数据：

$TASKS->write(<YAML_file>);

我得到了以下信息：

---
task:
  '1':
    command: '<task1_command>'
    desc: '<task1_description>'
  '2':
    command: '<task2_command>'
    desc: '<task2_description>'

任务编号在单引号之间！有没有办法“强制” YAML::Tiny 将任务值视为“数字”而不是“字符串”？

Answer 1

似乎没有办法解决这个问题，看起来这里已经提交了一个错误 ---

YAML::Tiny

不过，这可以使用 YAML 来完成，如下所示：

#!/usr/bin/perl

use warnings;
use strict;
use YAML;

{
    no warnings;
    local $YAML::Numify = 1;
}

my $file = YAML::LoadFile('test.yml');

open my $fh, '>', 'output.yml';
print $fh YAML::Dump $file;
close($fh);

• 使用警告会产生一条消息，将本地 YAML::Numify 包裹起来是没有警告的花括号会抑制这一点。无论哪种方式，输出确实符合预期

test.yml

---
task:
  '1':
    desc: '85'
    command: '<task1_command>'
  2:
    desc: '100'
    command: '<task2_command>'

output.yml

---
task:
  1:
    command: '<task1_command>'
    desc: 85
  2:
    command: '<task2_command>'
    desc: 100

Answer 2

您数据中的1 和2 在相应的Perl 数据结构中用作哈希键，因此必须始终是字符串。 read 调用的结果将是这样的

bless([
  {
    task => {
      1 => { command => "<task1_command>", desc => "<task1_description>" },
      2 => { command => "<task2_command>", desc => "<task2_description>" },
    },
  },
], "YAML::Tiny")

但是，如果您只是像使用数字一样使用数字字符串，Perl 总是会做正确的事情，所以我想知道您的应用程序需要这些值是“数字”是什么原因