perl - 哈希的 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

从字面上使用关键字非常简单：

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

使用 cmd 检查 Test1：run1

我是否正确理解了您的问题？

Answer 2

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