多重散列（哈希）嵌套 出问题，求解答

fjndhjf

#！usr/bin/perl

%HoH = (

  "$flintstones[1]"=> {

       "$husband[1]" => [fred,1,222,3],
        "$wife[1]" => [barney,1,2,3555],
    },

  "$flintstones[2]"=> {

       "$husband[2]" => [ge22e,dd222,ff333,ff444],
        "$wife[2]" => [george22,ff222,yy333,yy444],

     },
   "$flintstones[3]"=>  {

       "$husband[3]" => [tgeorgett,t222,t333,t444],
        "$wife[3]" => [tgeorge,t222,t333,t444],

     },
  );



for($ii=0;$ii<=3;$ii++){

    for($jj=1;$jj<=3;$jj++){

          for($kk=1;$kk<=3;$kk++){

       foreach $key ("$flintstones[$kk]") {


print $HoH{$flintstones[$kk]}->{$husband[$jj]}->[$ii],"\n";
                    }            
    };
        };
             }


想通过三重循环 让print打印出%HoH的每个husband的值，但打印的结果为什么只打印第二
个wife的值：
george22
......
ff222
.....
yy333
......
yy444
......

为什么会是这样？

mcshell

这代码，你能开use strict 吗{:3_183:}

fjndhjf

回复 2# mcshell

不行啊，我把书上的例题按自己需要修改了下，但不知道哪个地方有问题。忘各位大侠指点下！
   

pitonas

写这代码啊，
通常，建议大侠要好好回去···回过头去再看看 数组ARRAY

stanley_tam

那个。。。没有用keys看着就这么变扭。貌似for略多，数组没有赋值，改了一下，你试试

1. 
   
2. @flintstones = qw{flintstone0 flintstones1 flintstones2 flintstones3};
   
3. @husband = qw{husband0 husband1 husband2 husband3};
   
4. @wife = qw{wife0 wife1 wife2 wife3};
   
5. 
   
6. %HoH = (
   
7. 
   
8.     "$flintstones[1]" => {
   
9. 
   
10.         "$husband[1]" => [ fred,   1, 222, 3 ],
    
11.         "$wife[1]"    => [ barney, 1, 2,   3555 ],
    
12.     },
    
13. 
    
14.     "$flintstones[2]" => {
    
15. 
    
16.         "$husband[2]" => [ ge22e,    dd222, ff333, ff444 ],
    
17.         "$wife[2]"    => [ george22, ff222, yy333, yy444 ],
    
18. 
    
19.     },
    
20.     "$flintstones[3]" => {
    
21. 
    
22.         "$husband[3]" => [ tgeorgett, t222, t333, t444 ],
    
23.         "$wife[3]"    => [ tgeorge,   t222, t333, t444 ],
    
24. 
    
25.     },
    
26. );
    
27. 
    
28. 
    
29. for ( $ii = 1 ; $ii <= 3 ; $ii++ ) {
    
30. 
    
31.     # for ( $jj = 1 ; $jj <= 3 ; $jj++ ) {
    
32. 
    
33.         for ( $kk = 0 ; $kk <= 3 ; $kk++ ) {
    
34. 
    
35.             # foreach $key ("$flintstones[$kk]") {
    
36.                 # print $HoH{ $flintstones[$kk] }->{ $husband[$jj] }->[$ii], "\n";
    
37.                 print $HoH{ $flintstones[$ii] }->{ $husband[$ii] }->[$kk], "\n";
    
38.             # }
    
39.         }
    
40.         print "\n";
    
41.     # }
    
42. }

复制代码

回复 1# fjndhjf


   

104359176

  [ tgeorge,   t222, t333, t444 ]

这是语法错误吧

stanley_tam

没有use strict，perl能识别{:3_196:} 回复 6# 104359176


   

yinyuemi

当你还不能熟练是用hash和array时, use Data:umper, 可以一目了然

fjndhjf

回复 5# stanley_tam


    多谢了，确实是数组没有能像 想象中的被赋值。如果这样赋值的话，
@flintstones = qw{flintstone0 flintstones1 flintstones2 flintstones3};
当@flintstones的元素个数发生动态变化（不一定是4个时），
就要同时修改%H0H和@flintstones=qw{ ...}这两个地方，有其他写法能在
%H0H（）内顺便给@flintstones，@husband，@wife赋值吗？

stanley_tam

这种要求都有。。。{:3_188:}
试试：

1. #!perl
   
2. 
   
3. %HoH = (
   
4. 
   
5.     assignment => "
   
6.         @{[@flintstones = qw{flintstone0 flintstones1 flintstones2 flintstones3}]}
   
7.         @{[@husband = qw{husband0 husband1 husband2 husband3}]}
   
8.         @{[@wife = qw{wife0 wife1 wife2 wife3}]}
   
9.         ",
   
10. 
    
11.     "$flintstones[1]" => {
    
12. 
    
13.         "$husband[1]" => [ fred,   1, 222, 3 ],
    
14.         "$wife[1]"    => [ barney, 1, 2,   3555 ],
    
15.     },
    
16. 
    
17.     "$flintstones[2]" => {
    
18. 
    
19.         "$husband[2]" => [ ge22e,    dd222, ff333, ff444 ],
    
20.         "$wife[2]"    => [ george22, ff222, yy333, yy444 ],
    
21. 
    
22.     },
    
23.     "$flintstones[3]" => {
    
24. 
    
25.         "$husband[3]" => [ tgeorgett, t222, t333, t444 ],
    
26.         "$wife[3]"    => [ tgeorge,   t222, t333, t444 ],
    
27. 
    
28.     },
    
29. );
    
30. 
    
31. 
    
32. for ( $ii = 1 ; $ii <= 3 ; $ii++ ) {
    
33. 
    
34.     # for ( $jj = 1 ; $jj <= 3 ; $jj++ ) {
    
35. 
    
36.         for ( $kk = 0 ; $kk <= 3 ; $kk++ ) {
    
37. 
    
38.             # foreach $key ("$flintstones[$kk]") {
    
39.                 # print $HoH{ $flintstones[$kk] }->{ $husband[$jj] }->[$ii], "\n";
    
40.                 print $HoH{ $flintstones[$ii] }->{ $husband[$ii] }->[$kk], "\n";
    
41.             # }
    
42.         }
    
43.         print "\n";
    
44.     # }
    
45. }

复制代码

回复 9# fjndhjf