如何将哈希的内容添加到 perl 中的文件答案

【问题标题】：how do I add contents of the hash to a file in perl如何将哈希的内容添加到 perl 中的文件
【发布时间】：2021-02-19 06:04:33
【问题描述】：

我有一个像这样用 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 是值（使用连接连接字符串）

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

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

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

【问题讨论】：

到目前为止你有什么尝试？
你遇到过Data::Dumper吗？
另见Reading configuration INI files in Perl

标签： perl

【解决方案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

【讨论】：