散列数组中的Perl Count元素

Question

我正在调用一个web服务，它返回一个哈希记录数组作为响应。

my $ triggers = $ zabbix-＆gt; raw（'trigger'，'get'，$ options）; print Dumper（$触发器）;

转储器输出如下

      $VAR1 = [
      {
        'lastchange' => '1422765352',
        'triggerid' => '10430011'
      },
      {
        'lastchange' => '1422617151',
        'triggerid' => '604979'
      },
     ]

有时我只得到1条记录作为回应。我如何计算返回的记录数？

我尝试使用我的$ trig_count = @ {$ triggers};但是当只返回1个记录集时，这会失败。

适用于这两种情况的建议

Answer 1

如果您的数据是单个散列引用或数组引用：

my $trig_count = ref $trigger eq 'HASH' || scalar @$triggers;