Perl Количество элементов в массиве хэша

Question

Я звоню в веб-сервис, который возвращает массив хеш-записей в качестве ответа.

my $ triggers = $ zabbix-> raw ('trigger', 'get', $ options); print Dumper ($ триггеры);

выход Хранитель выглядит следующим образом

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

Иногда я получаю только 1 запись в качестве ответа. Как подсчитать количество возвращенных записей?

Я попытался использовать мой $ trig_count = @ {$ триггеры}; но это не удается, если возвращается только один набор записей.

Предложения, которые будут работать в обоих случаях

Answer 1

Если данные либо один хэш ссылок или ссылки на массив:

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