表示 Config::General 中包含数组引用的复杂 Perl 数据结构

Question

我在 Perl 代码中有以下数据结构：

my $config = {
    'View::Mason' => {
        comp_root     => [
            [ 'teamsite'   => 'root/teamsite' ],
            [ 'components' => 'root/components' ],
        ],
    },
};

我试图在 Config::General 配置文件。

到目前为止，我已经：

<View::Mason>
    <comp_root>
        teamsite        root/teamsite
    </comp_root>
    <comp_root>
        components      root/components
    </comp_root>
</View::Mason>

这至少使“comp_root”元素成为数组引用，但我无法让它指向另一个数组引用。

这可以在 Config::General 中完成吗？

Answer 1

我不相信 Config::General 可以做到这一点。例如：

use Config::General qw(SaveConfigString);

my $config = {
    'View::Mason' => {
        comp_root     => [
            [ 'teamsite'   => 'root/teamsite' ],
            [ 'components' => 'root/components' ],
        ],
    },
};

print SaveConfigString($config);

Produces

<View::Mason>
    comp_root   ARRAY(0x94ea168)
    comp_root   ARRAY(0x94fbc98)
</View::Mason>

如果无法保存它，则很可能无法加载它。

这就是我要做的：

1. 找出我想要的配置文件的样子。
2. 找到一个能够加载这样的配置文件的模块。 （如果事实证明加载起来太困难，可能会对格式进行一些更改。）
3. 如果步骤 2 的结果不适合我的程序的其余部分直接使用，请编写一些代码将配置读取器给我的内容转换为什么我的程序想要。

Answer 2

YAML 可能是您的一个选择：

use strict;
use warnings;
use Data::Dumper qw(Dumper);
use YAML::XS qw(Load);

my $config_text = '
View::Mason:
  comp_root:
    -
      - teamsite
      - root/teamsite
    -
      - components
      - root/components
';

my $config = Load($yaml_text);
print Dumper($config);