PERL怎样得到二维Hash的第二维的key数组

[toplinq]

初学请教：

# %result 是一个二维Hash
   print $result{"a"}{"b"};

# 这样得到一维得key数组

    my @row = sort keys %result;
 
#怎么得到二维的key呢？

[Aylazhang]

循环一下。

[Aylazhang]

my %result;
$result{"a"}{"b"}=1;
$result{"a"}{"c"}=1;

my @a = keys  %{@result{keys %result}};
print "@a";

[奔跑哥]

楼上写的非常对，学习了，从这点上看，perl太强大了。

[fibbery]

我觉得还是循环的好：

use strict;
use warnings;

my %hash=(a=>{1=>10,2=>20},b=>{3=>30,4=>40});
foreach my $key1 (keys(%hash))
{
	print("\$hash{$key1} has keys:".join(',',keys(%{$hash{$key1}})),"\n");
}

E:\temp\Perl>perl test.pl
$hash{a} has keys:1,2
$hash{b} has keys:4,3

[toplinq]

谢谢大家，结贴了。。