为什么Perl警告我使用伪哈希？

Question

Perl是警告我，在我的程序中使用伪hashs：

伪哈希已过时

如何转换下面的代码，这样是不使用伪hashs

foreach my $hash (@arrayOfHash) { 
      print keys %{$hash}; 
    } 

Answer 1

该问题不在该代码中。问题是@arrayOfHash实际上包含arrayrefs，而不是hashrefs。

如果由于某种原因你不能修复@arrayOfHash，你可以解决它这样做：

foreach my $hash (@arrayOfHash) { 
    my %hash = @$hash; 
    print keys %hash; 
} 

Answer 2

你应该总是发布完整的示例代码.....

不知道是什么你在做，但你可能混合了数组和数组refs和/或哈希和hashrefs。我通常只使用引用，因为我喜欢的语法好，我想是一致的：

use strict; 
use warnings; 

my($arrayrefOfHashrefs) = [ 
          {foo => 'bar', 
          bar => 'baz'}, 
          {Hello => 'world'}, 
          ]; 

foreach my $href (@$arrayrefOfHashrefs) { 
    print join("\n", keys %$href); 
    print "\n\n"; 
} 

会打印：

C:\Temp>perl foo.pl 
bar 
foo 

Hello