高手请进 perl 子散列的问题 -- 满意加分！

[WG_Wolf]

这个问题困扰小弟很久了，
比如：

my %hello = {
	config => {
		config1 => "went" ,
		config2 => "love"
	},
	label => \{
		label1 => "1234",
		label2 => "2345"
	},
	cont => "zhangwetnao"
};

我如何才能遍历config子散列？？小弟初学perl请高手们详细指教~~
我用each得到结果不对啊！
对了，最好能用引用访问！@_@

[WG_Wolf]

我用这个怎么不行啊？

my $sref = \%hello;

while ( ( $key , $value ) = each %{$sref->{'config'}} ) {
	printf  "[asdfsf  $key=$value]\n";
}

[WG_Wolf]

怎么没什么人气啊？？自己顶

[ThirstyCrow]

use strict; 

my %hello = (
    config => {
        config1 => "went" ,
        config2 => "love"
    },
    label => {
        label1 => "1234",
        label2 => "2345"
    },
    cont => "zhangwetnao"
);

while (my ($key, $value) = each %{$hello{config}}) {
    print "$key = $value\n";
}

[fibbery]

my %hello = {#错误，给哈希变量赋值要使用括号“（）”
    config => {#正确，对key config对应的value赋予哈希引用
        config1 => "went" ,
        config2 => "love"
    },
    label => \{#此处成了哈希引用的引用
        label1 => "1234",
        label2 => "2345"
    },
    cont => "zhangwetnao"
};

正确的代码：

my %hello = (
    config => {
        config1 => "went" ,
        config2 => "love"
    },
    label => {
        label1 => "1234",
        label2 => "2345"
    },
    cont => "zhangwetnao"
);

[WG_Wolf]

谢谢 两位小弟不胜感激！

[fibbery]

遍历config

foreach my $k (keys(%{$hello{config}}))
{
   print("$k => $hello{config}{$k}\n");
}