在Perl中打印多维数组，带有键

Question

Perl中有这样的数组:

my $foo_bar;
$foo_bar->{"foo"} //= [];
push @{$foo_bar->{"foo"}}, "foo1";
push @{$foo_bar->{"foo"}}, "foo2";
push @{$foo_bar->{"foo"}}, "foo3";
$foo_bar->{"bar"} //= [];
push @{$foo_bar->{"bar"}}, "bar1";
push @{$foo_bar->{"bar"}}, "bar2";
push @{$foo_bar->{"bar"}}, "bar3";

我想要得到的结果是:

• foo1, foo2, foo3
• bar: bar1, bar2, bar3

我不知道……我正在尝试这个:

  foreach my $fb(@$foo_bar){
  }

我得到一个错误:

在./test.pl中不是ARRAY引用，第417行，第1000行

Answer 1

你需要迭代$foo_bar作为一个哈希ref，而不是作为一个数组ref。因为它是一个哈希，你需要先得到键，然后使用它们。

use feature 'say';
#                 | you only iterate the keys ...
#                 |    | this percent is for hash  
#                 V    V     
foreach my $key ( keys %{ $foo_bar } ) {
    #    | ... and use the key here 
    #    |                   | this one is an array ref
    #    |                   |  | ... and the value here
    #    |                   |  |
    #    V                   V  VVVVVVVVVVVVVVVV
    say "$key ", join( ', ', @{ $foo_bar->{$key} } );
}

使用Data::Dumper或Data::Printer来查看你的数据结构是有帮助的。这个是Data::Printer，适合人类使用。

  {                  # curly braces are hash refs
    bar   [           # square braces are array refs   
        [0] "bar1",
        [1] "bar2",
        [2] "bar3"
    ],
    foo   [
        [0] "foo1",
        [1] "foo2",
        [2] "foo3"
    ]
}