perl如何遍历关联数组的值呢

64805176

有一个数据结构
关联数组%lun，其中%lun的值又是一个关联数组 组成的数组
如何遍历到所有的值呢？

#!/usr/bin/perl
%lun = ();
$lun{'a'} = [{'1'=>'q', '2'=>'w'}];
$lun{'b'} = [{'3'=>'e', '4'=>'r'}];
$lun{'c'} = [{'5'=>'t', '6'=>'y'}];

while (($key, @value) = each(%lun))
{
#怎么遍历出所有的值呢
#a => 1 => q
#a => 2 => 2
#b => e => e
....
}

iamlimeng

1. while (my ($key, $value) = each(%lun)) {
   
2.         print "$key @$value\n";
   
3. }
   

复制代码

raoweijian

1. while(($a,$b) = each %lun){
   
2.     print $a;
   
3.     while(($key,$value) = each %$a){
   
4.         print $ken,$value;
   
5. }
   
6. }

复制代码

raoweijian

我也刚学perl，最近做了几个关于hashes of hash的题目

64805176

回复 2# iamlimeng


    while (my ($key, $value) = each(%lun)) {
        #我想遍历value里面的值
        while (my ($k, $v) = each(%$value)) { #这里问什么不可以啊？？？？
                   print "$k,$v\n";
         }
}

Perlvim

1. #!/usr/bin/perl
   
2. %lun = ();
   
3. $lun{'a'} = [{'1'=>'q', '2'=>'w'}];
   
4. $lun{'b'} = [{'3'=>'e', '4'=>'r'}];
   
5. $lun{'c'} = [{'5'=>'t', '6'=>'y'}];
   
6. use YAML qw(Dump);
   
7. print(Dump(%lun));

复制代码