在 Perl 脚本中使用 YAML 配置文件中的数据的简单示例

Question

我需要创建一个 YAML 文件来存储 Perl 脚本的一些配置数据。这看起来应该很容易，但我一直没能解决，我想如果我只有一个简单的例子来复制我就可以了。我想做这样的事情：

-----test.yaml-----
image_width: 500
show_values: 0
-------------------

------test.perl------
use YAML;

my (%settings) = Load('test.yaml');
print "The image width is", $settings{image_width};
---------------------

Answer 1

试试这个：

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use YAML qw(LoadFile);

my $settings = LoadFile('test.yaml');
say "The image width is ", $settings->{image_width};

-迈克尔

Answer 2

这里的根本问题是 Load 需要一个包含 YAML 的字符串，而不是文件名。您需要使用 LoadFile （默认情况下不会导出）。另外，您应该使用 YAML::XS 而不是 YAML 如果可以的话，因为它是一个更好的实现。 （但是 YAML 对于简单的配置文件来说应该足够了。）

另一个问题是 LoadFile 将返回哈希引用（好吧，如果您的 YAML 看起来像哈希，就像您的那样），而不是列表您可以使用它来初始化哈希。

试试这个：（

use strict;
use warnings;
use YAML::XS qw(LoadFile);

my $settings = LoadFile('test.yaml');

print "The image width is ", $settings->{image_width};

如果您不想（或不能）安装 YAML::XS，可以删除 ::XS。该程序无需其他更改即可运行。）

Answer 3

尝试转储您想要的配置。

use strict;
use warnings;

use YAML;

my %settings = (
        foo => 1,
        bar => [qw/one two three/],
);

print Dump(\%settings);

。

---
bar:
  - one
  - two
  - three
foo: 1

另外，如果规范有点过于密集，维基百科有一个很好的 YAML 概述