检查数据结构并忽略散列或数组

Question

我在一个数组中有一堆哈希。检查我的键和值时，我得到了预期的输出，除了一些特殊情况，因为它们引用了更多的数组/哈希。

想想这样的事情：

@AoH = ( { 'husband' => "homer", 'wife' => "marge" },
         { 'people' => [{'Bob'=> 24, 'Lukas'=> 37}] },
         { 'vegetables' => { 'tomato' => "red", 'carrot' => "orange"} }); 

我的函数遍历数组并显示我的键和值，如下所示：

 sub function(...){    
    print "$key => $value\n";
 }

husband => homer
wife => marge
people => ARRAY(0x6b0d80)
Bob => 24
Lukas => 37
vegetables => HASH(0x2570d38)
tomato => red
carrot => orange

现在我想访问我的键和值，但是当将诸如 ARRAY 或 HASH 之类的东西作为值时，我想忽略该散列而不是打印它。

是否有某种方法只能访问类型标量的值？

到目前为止，我试过这个：

if ($value eq 'ARRAY') {
}
elsif ($value eq ref {}) {
}
else {
print "$key => $value\n";
}

但是，它最终会打印出与上面完全相同的内容，并且不会忽略其他数据结构。

Answer 1

对于像您这样的任意数据结构，您可以使用Data::Traverse：

use warnings;
use strict;
use Data::Traverse qw(traverse);

my @AoH = ( { 'husband' => "homer", 'wife' => "marge" },
            { 'people' => [{'Bob'=> 24, 'Lukas'=> 37}] },
            { 'vegetables' => { 'tomato' => "red", 'carrot' => "orange"} }); 

traverse { print "$a => $b\n" if /HASH/ } \@AoH;

输出：

wife => marge
husband => homer
Bob => 24
Lukas => 37
carrot => orange
tomato => red