zabbix_lld_example.pl

#!/usr/bin/perl
use strict;
use warnings;
use JSON;

my $json = JSON->new();
my @array = ();
my %list = ();

# 1個目
$list{'{#NAME}'} = "EXAMPLE1";
$list{'{#STAT}'} = "UP";
push(@array, $json->decode($json->encode(\%list)));

# 2個目
$list{'{#NAME}'} = "EXAMPLE2";
$list{'{#STAT}'} = "UP";
push(@array, $json->decode($json->encode(\%list)));

undef(%list);
$list{'data'} = \@array;
print $json->encode(\%list), "\n";