我有这个 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;
}
}
如何访问作为最后一条语句的哈希哈希的组名值