如何使用 Perl 的 YAML::Tiny 遍历 YAML 树？

Question

我有一个像这样的 YAML 文档：

---
version: 1
rootdirectory:
  - subdirectory:
    - file1
    - file2
  - subdirectory2

我正在加载到这样的 YAML::Tiny 对象中：

$configuration = YAML::Tiny->read($configuration_file)

我通过使用 Perl 调试器调用脚本看到我最终得到的是一组反映结构的嵌套哈希值和数组YAML 源代码：

0  YAML::Tiny=ARRAY(0x84e3ba4)
   0  HASH(0x80627dc)
      'rootdirectory' => ARRAY(0x84e3d3c)
         0  HASH(0x84352b0)
            'subdirectory' => ARRAY(0x84e3df0)
               0  'file1'
               1  'file2'
         1  'subdirectory2'
      'version' => 1

因此，我可以毫无问题地执行以下操作：

print $configuration->[0]->{version}

并收到预期的答案“1”。 同样，我也可以这样做：

print $configuration->[0]->{rootdirectory}->[0]->{subdirectory}->[0]

并收到“file1”的预期答案。

我的问题来自于在上面的示例中导出文件名所需的所有先验知识。 当我试图允许我的脚本的用户在 YAML 配置中描述任意目录结构时，这还不够好。 我需要能够从“根目录”“行走”树。

所以，我想象我可以做这样的事情：

print keys($configuration->[0])

我希望返回“rootdirectory，version”......依此类推，迭代数组和散列，直到我遍历树。

当我尝试运行上面的示例时，我得到：

Type of arg 1 to keys must be hash (not array element)

此时我陷入困境。 据我了解， $configuration->[0] 虽然是数组的一个元素，但它是一个包含哈希的元素，我相信我应该能够调用其键函数。

我在这里缺少什么？

Answer 1

尝试

print "$_\n" for keys %{ $configuration->[0] };

您必须将数组元素“$configuration->[0]”强制转换为带有“%{...}”的哈希引用，

以便迭代它们:

for my $key ( keys %{ $configuration->[0] } ){
  my $value = $configuration->[0]{$key};

  print "$key => $value\n";
}

Answer 2

YAML::Tiny 创建一个相当复杂的数据结构：

对数组的引用
充满了对哈希的引用
充满了对数组的引用
充满了对哈希的引用
....

当 $a 是对数组的引用时，
您可以通过 @$a 访问整个数组
元素为 $$a[0], $$a[1], ...
也可以作为 $a->[0], $a->[1]，

或者当 $b 是对哈希的引用时，
您可以通过 %$b 访问整个哈希值
元素为 $$b{'somekey'}, $$b{'somekey'},....
作为 $b->{'somekey'}, $b->{'somekey'}

或者当 $configuration 是对充满引用的数组的引用时， 散列
您可以通过 @$configuration 访问整个数组，
第一个元素为 $configuration->[0]。 您可以将其复制到另一个变量

$firstconfig = $configuration->[0]

，然后访问整个散列，

%$firstconfig

但如果您想一次性完成它，则必须编写相当棘手的内容，

%{ $configuration->[0] }

我认为这是 Perl 6 中已删除的内容之一。