perl - 在 perl 中解析哈希引用

Question

我对 perl 哈希有疑问，非常感谢任何对此的建议 - 下面只是代码片段 --

my @results = $sp->get_list_items($listid, $viewid); 
print Dumper @results;

输出是这样的，

$VAR1 = { a => 1, b => 2, g => 1, }; 
$VAR2 = { c => 1, d => 2, g => 1, b => 1434, h => 2 }; 
$VAR3 = { e => 1, a => 232, f => 2 }; 
$VAR4 = { g => 1, h => 2, a => 5, b => 19 };

注意:哈希引用之间是分号而不是逗号!!我的任务是从每个 hashref 收集 a 和 b 值(如果 hashref 中不存在 a 或 b，则将其替换为 0)并将其存储在哈希中，如果 hashrefs 用逗号连接很容易，因为它是分号尽管经过多次试验，这对我来说真的很难，请帮助..

Answer 1

您误解了 Data::Dumper 的输出。您需要将数组 ref 发送到 Dumper 函数:

print Dumper \@results;

否则，您发送数组中要单独打印的元素列表。

你应该得到这样的输出:

$VAR1 = [
          {
            'a' => 1,
            'g' => 1,
            'b' => 2
          },
          {
            'c' => 1,
            'h' => 2,
            'b' => 1434,
            'g' => 1,
            'd' => 2
          },
          {
            'e' => 1,
            'a' => 232,
            'f' => 2
          },
          {
            'a' => 5,
            'h' => 2,
            'b' => 19,
            'g' => 1
          }
        ];