小编rob*_*nar的帖子

我在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";

我想要的结果是:

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

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

  foreach my $fb(@$foo_bar){

  }

我收到一个错误:

不是./test.pl第417行1000行的ARRAY参考.