Почему 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