保留 YAML 顺序 perl

Question

我想从 YAML 文件读取数据，但需要保留元素的顺序。
perl 中是否有具有此功能的模块以及如何做到这一点？

---

回应 @mugen kenichi

我设法做我想做的事，但我不相信这是一个合理的解决方案。

旧 YAML：

foo:
   bar: some value
   baz: other value
qwe:
   bar: yet another value
   baz: again

新 YAML

 -
   foo:
      bar: some value
      baz: other value
 -  
   qwe:
      bar: yet another value
      baz: again

Answer 1

更新： YAML.pm 现在支持订单保存。请参阅此最新答案。

YAML 规范明确指出“映射键没有order”以及“在节点顺序很重要的每种情况下，必须使用序列”。从映射推断顺序将违反规范。正如 mugen 提到的，使用有序映射是保持顺序的正确解决方案。

If you *really* wanted to, you could somehow get a YAML parser to dump into a [Tie::IxHash][2] which will preserve order... but I know of no Perl YAML parser which gives you that level of control. It's possible you could do something with [YAML::Old::Loader][3], but that is not a very good YAML parser and YAML::Old::Loader is not documented.

第三种选择是使用显式 YAML 标记（又名类型）指示解析器将您的映射加载为特殊类型，然后您提供回调...但即使如此，YAML 解析器也可能会为您的回调提供无序哈希。

我建议您只需更改 YAML。可移植数据语言的要点在于，所有语义在数据文件或规范中都是明确的，而不是在特定解析器中隐含的。有序映射是一种公认​​的、紧凑的 YAML 习惯用法。

- foo:
      bar: some value
      baz: other value
- qwe:
      bar: yet another value
      baz: again

Answer 2

从版本 0.021 开始，可以使用 YAML::PP 。

use YAML::PP;
use YAML::PP::Common qw/ :PRESERVE /;
my $yp = YAML::PP->new( preserve => PRESERVE_ORDER );
my $data = $yp->load_string($yaml);
say $yp->dump_string($data);

（免责声明：我是该模块的作者）

Answer 3

虽然需要一些搜索，但这是可能的。基于 https://metacpan.org/pod/YAML::PP#preserve，我得到了这个简短的脚本来读取第一个文件并在 STDOUT 上打印出 YAML。 Data:Dumper也显示订单保持不变。

#!/usr/bin/perl -w
use strict;

use YAML::PP;
use YAML::PP::Common;
my $yp = YAML::PP->new( preserve => YAML::PP::Common->PRESERVE_ORDER );
my $yaml = $yp->load_file( $ARGV[0] );
print $yp->dump($yaml), "\n";