散列的Perl散列

Question

我是Perl的新手，我正在尝试使用散列函数。我有一个哈希哈希，如下所示：

%HoH =   
(
    "Test1" => { checked => 1, mycmd => run1 },
    "Test2" => { checked => 1, mycmd => run2 },
)

使用下面的代码，我将得到下面的输出：

for $family ( keys %HoH ) 
{
    print "$family: ";
    for $role ( keys %{ $HoH{$family} } ) 
    {
        print "$role=$HoH{$family}{$role} ";
    }
    print "\n";
}

输出：

Test1: checked=1 mycmd=run1 
Test2: checked=1 mycmd=run2

我的问题是，如何分别访问单独的checked和cmd？通过单独访问，我可以比较选中的内容并执行我的任务。

Answer 1

for my $family ( keys %HoH )
{
    if ($HoH{$family}->{checked}) {
         # Do what you want...
    }
}

Answer 2

从字面上使用关键字是非常直接的：

%HoH =   
(
    "Test1" => { checked => 1, cmd => run1 },
    "Test2" => { checked => 1, cmd => run2 },
);
if ($HoH{"Test1"}{checked}) {
print "Test1 is Checked with cmd: " . $HoH{"Test1"}{cmd} . "\n";
}

使用命令: run1检查

Test1

我对你的问题理解正确了吗？