Perl 在哈希数组中计数元素

Question

我正在调用一个返回哈希记录数组作为响应的网络服务。

我的$triggers = $zabbix->raw（'trigger'， 'get'， $options）;打印自卸车（$triggers）;

自卸车输出如下

      $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;