如何在散列中访问和循环数组

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";
    }
}

希望能告诉你如何访问它。