如何访问和遍历散列中的数组

Question

我刚开始使用 Perl 编程，我有一个问题一直在尝试解决。

如果我有配置：

my %config = (
'repos'   => {
    'duosecurity' => [
        'duo_unix.x86_64',
    ],

    #'puppet'      => [
        #   'puppet-agent',
        #],

    'RHEL-77-x86_64' => [
        'perl-Data-Random.noarch',
    ]});

如何同时访问数组和循环？

Answer 1

foreach my $repo (keys %{$config{repos}}) {
    print "$repo\n";
    foreach my $list_ele (@{$config{repos}{$repo}}) {
        print "\t$list_ele \n";
    }
}

希望向您说明如何访问它。