perl 配置和 block

Question

我正在尝试在 perl 中使用配置文件 Config::Simple

#!/usr/bin/perl

use Config::Simple;
use Data::Dumper;
use Data::Dump qw(dump);

#$cfg = new Config::Simple('new.conf');

$cfg = new Config::Simple(syntax => 'ini');

$cfg->param("Dialer Onboard.user", "user1");
$cfg->param("Dialer Onboard.pass", "pass1");
$cfg->param("Dialer External.user", "user2");
$cfg->param("Dialer External.pass", "pass2");

$cfg->write("new.conf");
$cfg->read('new.conf');

$user = $cfg->param("Dialer Onboard.user");
print "----" . "$user";

new.conf 文件将是

[Dialer External]
pass=pass2
user=user2

[Dialer Onboard]
pass=pass1
user=user1

对于部分或 block 信息，我正在使用 get_block() 函数，如下所示

my $config = Config::Simple->new("new.conf")->get_block("Dialer Onboard");
print Dumper $config;

这会给我这样的输出

$VAR1 = {
    'pass' => 'pass1',
    'user' => 'user1'
};

有没有办法得到所有 block 的唯一名称？

现在我只得到 block 的数量是

my $config = Config::Simple->new("new.conf")->get_block();
print Dumper $config;

输出为

$VAR1 = 2;

Answer 1

您正在标量上下文中使用 get_block()；这就是为什么你得到 block 的数量。在列表上下文中使用它来获取 block 的名称。

试试这个:

my @config = Config::Simple->new("new.conf")->get_block();
print Dumper \@config;

输出:

$VAR1 = [
          'Dialer Onboard',
          'Dialer External'
        ];