在 Perl 中生成数据结构

Question

我有 Perl “配置文件”，其中包含如下数据结构：

'xyz' => {
    'solaris'  => [
                   "value1",
                   "valueN",
                  ],
    'linux'    => [
                   "valueX",
                   "valueN",
                  ],
},

我称他们为简单：

%config = do '/path/to/file.conf';

现在，我想像这样“生成”配置文件（直接构建数据结构“结构”并将其打印在配置文件中）。 我可以以正常方式填充散列（数组或任何东西）的散列，但是我如何在配置文件中转储它？

有没有一种干净简单的方法呢？ 而不必做一些肮脏的事情，比如：

print $FH "'xyz' => {\n";
print $FH "   'solaris'  => [\n";

等等。

我“猜”Data::Dumper 可以做到这一点..

谢谢！

Answer 1

你想要：

$Data::Dumper::Terse = 1;

见the documentation。

$Data::Dumper::Terse 或 $OBJ->Terse([NEWVAL])

设置后，Data::Dumper 将发出单个非自引用值作为原子/术语而不是语句。这意味着将尽可能避免使用 $VARn 名称，但请注意，eval 可能无法始终解析此类输出。

更新（解决以下评论）：

Data::Dumper 将添加正确的标点符号，以便您准确返回您提供的内容。如果你给它一个哈希引用，那么你会得到一个以花括号开头和结尾的字符串。

$ perl -MData::Dumper -E'$Data::Dumper::Terse=1; say Dumper { foo => { bar => "baz" }}'
{
  'foo' => {
             'bar' => 'baz'
           }
}

如果你给它一个数组引用，那么你会得到一个以方括号开头和结尾的字符串。

$ perl -MData::Dumper -E'$Data::Dumper::Terse=1; say Dumper [ foo => { bar => "baz" }]'
[
  'foo',
  {
    'bar' => 'baz'
  }
]

如果出于某种原因，你不想要这两个，那么给它一个值列表。

$ perl -MData::Dumper -E'$Data::Dumper::Terse=1; say Dumper ( foo => { bar => "baz" })'
'foo'
{
  'bar' => 'baz'
}

如果你有一个散列引用并且你不想要周围的大括号（老实说这似乎是一个奇怪的要求），那么在将它传递给Dumper() 之前取消引用该引用。这会将散列引用转换为散列，并且散列将通过传递给函数而“展开”为列表。

$ perl -MData::Dumper -E'$Data::Dumper::Terse=1; $ref = { foo => { bar => "baz" }}; say Dumper %$ref'
'foo'
{
  'bar' => 'baz'
}