Perl散列的数组问题，比较绕

Mekel

1. @AoH = (
   
2. {
   
3.         husband => "barney",
   
4.         wife    => "betty",
   
5.         son    => "bamm bamm",  
   
6. },
   
7. {
   
8.         husband => "george",
   
9.         wife    => "jane",
   
10.         son    => "elroy",
    
11. },
    
12. {
    
13.         husband => "homer",
    
14.         wife    => "marge",
    
15.         son    => "bart",
    
16. },
    
17. );
    
18. for (@AoH)
    
19. {
    
20.     print $$_{husband}."--------/n";
    
21.     }
    
22.     for $i ( 0 .. $#AoH ) {
    
23.         print "$i is { ";
    
24.                 for $role ( keys %{ $AoH[$i] } ) {
    
25.                         print "$role=$AoH[$i]{$role} ";
    
26.                 }
    
27.                 print "}/n";
    
28. }
    
29. print $AoH[0]{husband}."!!\n";

复制代码

问题来了，$AOH[0]{husband}前为什么不用加$，如果不用加，为什么keys %{ $AoH[$i] }加%，感觉矛盾啊

523066680

你上一个问题什么情况了？别人回答后也不响应问题是否得到解决。

还有你这个帖子，
print $AOH[0]{husband}."!!\n";
AOH 应该改成 AoH

印象中是因为多层镶嵌直接表达的时候可以不加，比如 $a{b}{c} 或者 $a[1]{name}
间接使用的时候就必须加，比如
my $ref = $AoH[0];
printf $ref{husband}; 是无效的，需要使用 $ref->{husband} 或者 $$ref{husband}

但是为了方便记忆，建议在有引用的情况下统一加 $ 或者 ->

$AoH[0]->{husband}
${$AoH[0]}{husband}

Mekel

明白了，但是keys %{ $AoH[$i] }为什么还要加%,$AoH[$i]本身不是已经代表散列了吗
上个问题参数是能够完美传递的，即使不加our，因为我原函数里有$a=shift这样的语句，写pm里就要写成$a=shift @ARGV才行

Mekel

恩，$AoH[$i]存储的是匿名哈希的引用，不是哈希，所以加%

sxw

老哥，学 Perl 6 就不会这么绕了

523066680

回复 5# sxw

Perl 6 很成熟了吗？各种强大的模块不知道推出 perl6 版本没有
暂时不打算转。

sxw

回复 6# 523066680


    现在也就 1000 左右的模块

523066680

回复 7# sxw

     保持观望。

Mekel

回复 5# sxw


    perl6也再用，有些很方便，但是不顺手