多维数组的问题,请教一下.

kaixin9ok

#!/usr/bin/perl
$chenjun{"test"} = ["1","2","3","4","5","6","7"];
while (($file,@value) = each %chenjun)
{
        print $file;
        foreach $test (@value){
        print $test . "\n";
        }
}

....
ARRAY(0x9fdcc2
打印结果总是这个
我应该如何做才能最终得到数组里的1，2，3，4，5，6，7这些值 ?

...

mitiao

1. $value = $chenjun{"test"};
   
2. foreach (@$value) {
   
3.         print $_;
   
4. }

复制代码

kaixin9ok

回复 2# mitiao



$value = $chenjun{"test"};
foreach (@$value) {
        print $_;
}
   

没太明白这么写是什么意思?

kaixin9ok

回复 2# mitiao


这样做一次付值 是什么意思 ？
为什么不能直接这样写呢？
#!/usr/bin/perl
$chenjun{"test"} = ["1","2","3","4","5","6","7"];
$value = $chenjun{"test"};
foreach ($chenjun{"test"}) {
        print $_;
}

   

mcshell

1. map{print $_ for @{$chenjun{$_}}}keys %chenjun

复制代码

kaixin9ok

回复 5# mcshell


    嗯  多谢多谢

  刚试了一下这样写
while ( $key = each %chenjun){
        foreach (@{$chenjun{$key}}){
                print $_;
        }



}

kaixin9ok

回复 2# mitiao


    多谢多谢

cecial

回复 1# kaixin9ok

1. #!/usr/bin/perl
   
2. $chenjun{"test"} = ["1","2","3","4","5","6","7"];
   
3. while (($file,$ref) = each %chenjun)
   
4. {
   
5.         print $file;
   
6.         foreach $test (@$ref){
   
7.         print $test . "\n";
   
8.         }
   
9. }
   
10. 
    

复制代码

mzty

$chenjun{"test"} = ["1","2","3","4","5","6","7"];

$chenjun{"test"} 中存储的是数组的引用，需要解引用