0

我有这个 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; 
    }
}

如何访问作为最后一条语句的哈希哈希的组名值

4

1 回答 1

1
$instr_enabled{$instr}{group_name};

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

于 2014-03-27T13:52:48.247 回答