如何将散列的内容添加到 perl 中的文件中

Question

我有一个像这样用 perl 打印的散列

SYSTEM:  Sla:1MD7; Window: Any=00-04ZZZ:  Sla:1MD7; Window: Any=00-04

其中 SYSTEM:、ZZZ: 是键， Sla:1MD7; Window: Any=00-04、 Sla:1MD7; Window: Any=00-04 是值（使用 join 连接的字符串）

我希望将这些作为键、值对附加到现有文件（类似于 python 中的配置解析器）。我希望附加的文件文本是这样的：

[section_]
ZZZ = [Sla:1MD7; Window: Any=00-04]
SYSTEM = [Sla:1MD7; Window: Any=00-04]

我是 Perl 的新手，我正在尝试实现它。

Answer 1

这是一个使用 Config::Tiny 的例子：

use strict;
use warnings;
use Config::Tiny;
my %hash = (
    SYSTEM => q[Sla:1MD7; Window: Any=00-04],
    ZZZ => q[Sla:1MD7; Window: Any=00-04]
);
my $Config = Config::Tiny->new();
$Config->{section_} = \%hash;
$Config->write('test.conf', 'utf8');

输出:

[section_]
SYSTEM=Sla:1MD7; Window: Any=00-04
ZZZ=Sla:1MD7; Window: Any=00-04

如何将散列的内容添加到 perl 中的文件中

how do I add contents of the hash to a file in perl

perl