Question

我有这个perl代码，我无法找出一件事。

my %instr_enabled= ();

foreach my $instr (@{$attrib->get_A_instructions()})
{
    %instr_enabled = (
        $instr->{instr} => {
            enable     => $instr->{enable},
            group_name => $instr->{test_category},
        }
    );
    print Dumper(\%instr_enabled);
}
foreach my $instr (sort keys( %instr_enabled ))
{
    if($version eq "v8")
    {
        next unless ($instr =~ /$group_name_regex/);
        chomp($instr);
    }
    else
    {
        print("Entering V7 test name\n");
        my $test_name = $instr->group_name; 
    }
}

如何访问groupname值，该值是最后一个语句的哈希哈希

Answer 1

$instr_enabled{$instr}{group_name};

这可能不是最佳参考，但您可以在此处找到更多详细信息：http://www.cs.mcgill.ca/~abatko/computers/programming/perl/howto/hash/

哈希访问哈希

1 个答案: