Yml：无法验证加载合并的 yml 文件

Question

我在以下代码的帮助下合并了两个 yml 文件。

use strict ;
use warnings FATAL => qw(all), NONFATAL => qw(exec);
use Cwd qw();
use Getopt::Long qw();
use YAML::XS qw(Load Dump);
use File::Slurp qw(read_file write_file);
use Hash::Merge qw( merge );
Hash::Merge::set_behavior('RETAINMENT_PRECEDENT');
my($IN_YAML_1,$IN_YAML_2,$OUT_YAML) = undef;
($IN_YAML_1,$IN_YAML_2,$OUT_YAML) = @ARGV;
#reading 1st yaml file
my $in_yaml_1 = read_file($IN_YAML_1, { binmode => ':raw' });
my %in_hash_1 = %{ Load $in_yaml_1 };
#reading 2nd yaml file
my $in_yaml_2 = read_file($IN_YAML_2, { binmode => ':raw' });
my %in_hash_2 = %{ Load $in_yaml_2 };
#Merge hash_1 and hash_2
my %out_hash = %{ merge( \%in_hash_1, \%in_hash_2) };
open( FH, ">$OUT_YAML" ) or die "Can't open $OUT_YAML\n";
my $out_yaml = Dump \%out_hash;
write_file($OUT_YAML, { binmode => ':raw' }, $out_yaml);
close FH;

我的 yml 文件：-

一个.yml

emailName: David
emailAddresses:
    - sillymoos@cpan.org
    - perltricks.com@gmail.com
credentials:
    username: sillymoose
    password: itsasecret

两个.yml

emailName: Pranay
emailAddresses:
    - heelo@cpan.org
    - test@gmail.com
credentials:
    username: link
    password: sanity

输出：

credentials:
  password:
  - itsasecret
  - sanity
  username:
  - sillymoose
  - link
emailAddresses:
- sillymoos@cpan.org
- perltricks.com@gmail.com
- heelo@cpan.org
- test@gmail.com
emailName:
- David
- Pranay

如果我们注意到合并输出中元素的顺序（emailName 排在最后）。

这里同时针对我的 yml 架构验证我的合并 yml 文件。

eval { validate(YAML::LoadFile("Schema.yml"), YAML::LoadFile("merge.yml"))

失败并出现错误：

   YAML Error: Invalid element in map
   Code: YAML_LOAD_ERR_BAD_MAP_ELEMENT
   Line: 3
   Document: 1

元素顺序的改变会导致这个问题吗？我怎样才能以相同的顺序创建我的合并 yml，即 emailName: 后跟 emailAddresses: ...etc

Answer 1

如果没有看到Schema.yml，很难确定，但我猜它会将username、password 和emailName 定义为标量值。合并后，它们都是值列表。您的错误说它发生在输出文件的第 3 行，这是包含您的一个新列表的第一行。

如果您将两个散列合并在一起，那么您几乎肯定不会得到与两个原始散列相同形状的东西。因此，无论您如何合并哈希，您的架构验证几乎肯定会失败。

如果您不知道为什么要以这种方式合并这些文件以及之后您想对它们做什么，我们将无法提供更多帮助。