zabbix pull

zbx_pull.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Zabbix::Tiny;
$|++;
my %hostgroups = (
	'Test' => "42",
);
my $zabbix = Zabbix::Tiny->new(
	server => 'https://myzabbix.something.com/api_jsonrpc.php',
	user => 'user',
	password => 'pass',
);
my @entries;
foreach my $group ( keys %hostgroups ) {
	print "Checking: $group\n";
	my $hosts = $zabbix->do('host.get',
		{
			groupids => $hostgroups{$group},
			monitored => 1,
			output => [qw(
			 	hostid
			 	name
			 	host
			)],
		}
	);
	foreach my $host ( @$hosts ) {
		push @entries, sprintf("%s\t%s\t%s", $host->{hostid}, $host->{name}, $host->{host});
	}
}
print(join "\n", sort @entries);