perl对二维散列的操作

定义一个二维散列a，有两个一级索引m和m1,要求打印出一级索引为m的所有元素，代码实现如下：

%a;

$a{m}{n}=1;
$a{m}{n2}=5;
$a{m}{n3}=2;
$a{m1}{n}=1;

$a{m1}{q}=8;

%b=%{$a{m}};
while(($key,$value)=each(%b))  {
        print "$b{$key}\n"; #print "$value\n";
}

欢迎访问rabbit.cublog.cn！

注：

1．$a{m}其实存放的是一个引用，把这个引用赋值给散列b，其中b为一位散列。

2．While循环获取某个散列中的所有索引及对应的值。