zabbix_api之perl语言写法

zabbix_api网上比较多的写法是python或curl。上次我用java－－http://bossr.iteye.com/blog/2195679，这次用perl。for example:

#!/usr/bin/perl

use 5.010 ;
use strict ;
use warnings ;
use JSON :: RPC :: Client ;
use Data :: Dumper ;

# Authenticate yourself
my $client = new JSON :: RPC :: Client ;
my $url = 'http://testserver.zabbix.com/zabbix/api_jsonrpc.php' ;
my $authID ;
my $response ;

my $json = {
jsonrpc => "2.0" ,
method => "user.login" ,
params => {
user => "admin" ,
password => "zabbix"
} ,
id => 1
} ;

$response = $client -> call ( $url , $json ) ;

# Check if response was successful
die "Authentication failed\n" unless $response -> content -> { 'result' } ;

$authID = $response -> content -> { 'result' } ;
print "Authentication successful. Auth ID: " . $authID . "\n" ;

# Get list of all hosts using authID

$json = {
jsonrpc => '2.0' ,
method => 'host.get' ,
params =>
{
output => [ 'hostid' , 'name' ] , # get only host id and host name
sortfield => 'name' ,        # sort by host name
} ,
id => 2 ,
auth => "$authID" ,
} ;
$response = $client -> call ( $url , $json ) ;

# Check if response was successful
die "host.get failed\n" unless $response -> content -> {result } ;

print "List of hosts\n-----------------------------\n" ;
foreach my $host ( @ { $response -> content -> {result } } ) {
print "Host ID: " . $host -> {hostid } . " Host: " . $host -> {name } . "\n" ;
}