我刚开始使用Perl编程,并且有一个我一直想解决的问题。
如果我有配置:
my %config = (
'repos' => {
'duosecurity' => [
'duo_unix.x86_64',
],
#'puppet' => [
# 'puppet-agent',
#],
'RHEL-77-x86_64' => [
'perl-Data-Random.noarch',
]});
如何访问数组并同时使其循环?
foreach my $repo (keys %{$config{repos}}) {
print "$repo\n";
foreach my $list_ele (@{$config{repos}{$repo}}) {
print "\t$list_ele \n";
}
}
希望向您表明如何访问它。